小编Cpt*_*emo的帖子
sigma.js不读取JSON
我有这个页面
<html>
<head>
<style type="text/css">
#container {
max-width: 800px;
height: 800px;
margin: auto;
}
</style>
</head>
<body>
<div id="container"></div>
<script src="sigma.min.js"></script>
<script src="plugins/sigma.parsers.json.min.js"></script>
<script>
sigma.parsers.json('graph.json', {
container: 'container',
settings: {
defaultNodeColor: '#ec5148'
}
});
</script>
</body>
</html>
它可以很好地加载这里和下面提供的第一个示例图
{
"nodes": [
{
"id": "n0",
"label": "A node",
"x": 0,
"y": 0,
"size": 3
},
{
"id": "n1",
"label": "Another node",
"x": 3,
"y": 1,
"size": 2
},
{
"id": "n2",
"label": "And a last one",
"x": 1,
"y": …推荐指数
解决办法
查看次数
RStudio本地+ R cloudly
有没有办法在我的机器上本地运行RStudio,但使用运行R作为引擎而不是本地R安装的远程机器？
为了清楚起见,我知道有可能将RStudio服务器与Web GUI一起使用,但我问的是不同的东西.我想使用连接到运行R的远程机器的本地RStudio应用程序(可能通过ssh).
可能吗？
推荐指数
解决办法
查看次数
为xtable生成的longtable设置列对齐和宽度
请考虑以下MWE
library(xtable)
DF <- as.data.frame(UCBAdmissions)
print(xtable(DF, align="p{0.4\textwidth}|p{0.15\textwidth} p{0.15\textwidth} p{0.15\textwidth}"), sanitize.text.function = function(x){x},
table.placement="!htp", include.rownames=FALSE,
tabular.environment='longtable',floating=FALSE)
我想设置我longtable喜欢的对齐方式
\begin{longtable}{p{0.4\textwidth}|p{0.15\textwidth} p{0.15\textwidth} p{0.15\textwidth}}
当我试图将参数传递给xtable我得到的对象时
Warning message:
In .alignStringToVector(value) : Nonstandard alignments in align string
Error in print(xtable(DF, align = "p{0.4\textwidth}|p{0.15\textwidth} p{0.15\textwidth} p{0.15\textwidth}"), :
error in evaluating the argument 'x' in selecting a method for function 'print': Error in `align<-.xtable`(`*tmp*`, value = "p{0.4\textwidth}|p{0.15\textwidth} p{0.15\textwidth} p{0.15\textwidth}") :
"align" must have length equal to 5 ( ncol(x) + 1 )
我明白我应该为第5列添加对齐(如何？)但我也不理解错误消息.我应该清理字符串吗？
推荐指数
解决办法
查看次数
在tm包中不再支持Dictionary().如何修改代码？
我刚刚注意到在更新到tmv.0.5-10后,该功能Dictionary()不再受支持了.这是一个错误吗？还是被弃用了？我想用另一个函数来创建字典吗？
既然我现在要修改很多代码行,那么没有工程设计的最佳方法是什么？
推荐指数
解决办法
查看次数
如何最小化类"lm"对象的大小而不影响它传递给predict()
我想lm()在一个包含2个预测变量的50M +观测值的大型数据集上运行.分析在远程服务器上运行,只有10GB用于存储数据.我已经对从数据中采样的10K观测值测试了'lm()',结果对象的大小为2GB +.
我需要从lm()ONLY 返回的类"lm"的对象来生成model(summary(lm_object))的摘要统计信息并进行预测(predict(lm_object)).
我做了一些实验用的选项model, x, y, qr的lm.如果我将它们全部设置为FALSE我将尺寸减小38%
library(MASS)
fit1=lm(medv~lstat,data=Boston)
size1 <- object.size(fit1)
print(size1, units = "Kb")
# 127.4 Kb bytes
fit2=lm(medv~lstat,data=Boston,model=F,x=F,y=F,qr=F)
size2 <- object.size(fit2)
print(size2, units = "Kb")
# 78.5 Kb Kb bytes
- ((as.integer(size1) - as.integer(size2)) / as.integer(size1)) * 100
# -38.37994
但
summary(fit2)
# Error in qr.lm(object) : lm object does not have a proper 'qr' component.
# Rank zero or should …推荐指数
解决办法
查看次数
R中高清动画视频的最佳实践
目标是制作一个全屏播放的视频(在1280 x 800显示屏上),两个ggplot垂直排列的视频grid.arrange().例如:
library(ggplot2)
library(gridExtra)
library(animation)
saveVideo({
for (i in 1:50) {
data = data.frame(x=rnorm(1000),y=rnorm(1000))
plot1 = ggplot(data, aes(x=x, y=y)) + geom_point()
plot2 = ggplot(data, aes(x=y, y=x)) + geom_point()
grid.arrange(arrangeGrob(plot1, plot2, heights=c(3/4, 1/4), ncol=1))
ani.options(interval = 0.05, ani.dev="png", ani.height=800)
}
},video.name = "test_png.mp4", other.opts = "-b 1000k")
然而,全屏幕视频的质量并不令人满意.我试过增加,"-b 1000k"但在我看来它只增加了文件的大小和输出的定义.
- 我应该使用哪种设备？
- 如何增加画布的高度(
ani.height=800似乎没有产生任何结果)？
编辑:我尝试使用该选项的脚本other.opts = "-s 1280x800".虽然现在图像更宽,但定义仍然很低.这里是从我的1280x800显示屏中截取的屏幕截图(从上到下)(将视频与菜单栏进行比较):
:
推荐指数
解决办法
查看次数
Python Selenium:如何检查WebDriver是否退出()？
我想控制我是否WebDriver退出但我无法找到方法.(似乎在Java中有一种方法可以做到这一点)
from selenium import webdriver
driver = webdriver.Firefox()
driver.quit()
driver # <selenium.webdriver.firefox.webdriver.WebDriver object at 0x108424850>
driver is None # False
我也探讨了属性,WebDriver但我找不到任何具体方法来获取有关驱动程序状态的信息.还要检查会话ID:
driver.session_id # u'7c171019-b24d-5a4d-84ef-9612856af71b'
推荐指数
解决办法
查看次数
ggplot:梯度刻度在特定中断时发散
我有这些数据
df <- data.frame(x=1:10,
y=1:10,
value = c(seq(from=0.5,to=3.2,length.out=9),Inf))
我想用渐变色标绘制,突出显示三个中断值:
breaks <- c(0.5,1,3.2)
我希望white颜色突出显示我的中间值(即1),然后另外两个增加强度,因为它们到达分布的两个尾部.然而这将是阴谋
require(ggplot)
ggplot(df, aes(x,y,colour=value)) + geom_point(size=10) +
scale_colour_gradientn(colours = c("red","white","blue"),
breaks = breaks, labels = format(breaks))
以white中心值/中值为中心(1.85).我不明白那时宣布断点的重点是什么.
推荐指数
解决办法
查看次数
从类"simple_triplet_matrix"转换为类"matrix"
我正在尝试转换使用TermDocumentMatrix()该tm包创建的以下简单三元组矩阵
A term-document matrix (317443 terms, 86960 documents)
Non-/sparse entries: 18472230/27586371050
Sparsity : 100%
Maximal term length: 653
Weighting : term frequency (tf)
班级
[1] "TermDocumentMatrix" "simple_triplet_matrix"
到密集的矩阵.
但
dense <- as.matrix(tdm)
生成错误
Error in vector(typeof(x$v), nr * nc) : vector size cannot be NA
In addition: Warning message:
In nr * nc : NAs produced by integer overflow
我无法真正理解错误和警告信息.尝试使用的小数据集复制错误
library(tm)
data("crude")
tdm <- TermDocumentMatrix(crude)
as.matrix(tdm)
不会产生同样的问题.我从这个答案中看到,通过slam包解决了类似的问题(即使问题是关于求和操作而不是转换为密集矩阵).我浏览了slam文档,但是我找不到任何特定的函数来将类 …
推荐指数
解决办法
查看次数
如何使用对数标度和离散值改进ggplot直方图的方面
我正在努力提高离散值直方图的清晰度和方面,我需要用对数标度来表示.
请考虑以下MWE
set.seed(99)
data <- data.frame(dist = as.integer(rlnorm(1000, sdlog = 2)))
class(data$dist)
ggplot(data, aes(x=dist)) + geom_histogram()
哪个产生
然后
ggplot(data, aes(x=dist)) + geom_line() + scale_x_log10(breaks=c(1,2,3,4,5,10,100))
这可能更糟糕
从现在开始,它给人的印象是"1"和"2"之间缺少某些东西,而且还不完全清楚哪个条的值为"1"(条形图位于刻度线的右侧),哪个条形图的值为"2" "(栏位于刻度线的左侧).
据我所知,技术上ggplot为对数刻度提供了"正确"的视觉答案.然而作为观察者,我在理解它时遇到了一些问题.
有可能改善一些东西吗？
编辑:
当我将Jaap解决方案应用于我的真实数据时会发生这种情况
x = 0和x = 1之间以及x = 1和x = 2之间的下降来自何处？我的值是离散的,但那么为什么绘图也映射x = 1.5和x = 2.5？
推荐指数
解决办法
查看次数