直方图和散点图是可视化数据和变量之间关系的好方法,但最近我一直想知道我缺少哪些可视化技术.您认为最不充分利用的情节是什么?
答案应该:
我是R的新手,我在R中使用该e1071
软件包进行SVM分类.
我使用了以下代码:
data <- loadNumerical()
model <- svm(data[,-ncol(data)], data[,ncol(data)], gamma=10)
print(predict(model, data[c(1:20),-ncol(data)]))
Run Code Online (Sandbox Code Playgroud)
的loadNumerical
是用于装载数据,并且将数据的形式为(第一8列被输入并且最后一列是分类):
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
1 39 1 -1 43 -1 1 0 0.9050497 0
2 23 -1 -1 30 -1 -1 0 1.6624974 1
3 50 -1 -1 49 1 1 2 1.5571429 0
4 46 -1 1 19 -1 -1 0 1.3523685 0
5 36 1 1 29 -1 1 1 1.3812029 1
6 27 -1 -1 …
Run Code Online (Sandbox Code Playgroud) 在nlme包中有两个函数用于拟合线性模型(lme和gls).
更新:添加了赏金.有兴趣了解拟合过程中的差异,以及理性.
我想在一个情节上抖动文字,以避免过度绘图.为此,我假设我需要一个围绕文本组件的边界框.有没有办法得到这个?
例如,在基本图形中:
plot.new()
text(.5,.5,"word")
text(.6,.5,"word") #does this overlap?
Run Code Online (Sandbox Code Playgroud)
在网格中有一种方法可以删除重叠的文本,但我似乎无法找到一种方法来访问代码,如果发生了重叠,则会发现这些代码.
grid.text(c("word","other word"),c(.5,.6),c(.5,.5),check=T)
Run Code Online (Sandbox Code Playgroud) 我想保存一大堆相对较大的数据帧,同时最大限度地减少文件占用的空间.打开文件时,我需要能够控制工作区中给出的名称.
基本上我正在寻找dput和dget的语义,但使用二进制文件.
例:
n<-10000
for(i in 1:100){
dat<-data.frame(a=rep(c("Item 1","Item 2"),n/2),b=rnorm(n),
c=rnorm(n),d=rnorm(n),e=rnorm(n))
dput(dat,paste("data",i,sep=""))
}
##much later
##extract 3 random data sets and bind them
for(i in 1:10){
nums<-sample(1:100,3)
comb<-rbind(dget(paste("data",nums[1],sep="")),
dget(paste("data",nums[2],sep="")),
dget(paste("data",nums[3],sep="")))
##do stuff here
}
Run Code Online (Sandbox Code Playgroud) 所以我在摆脱图形设备的整个边缘时遇到了一些麻烦.我将mar设置为0,但边缘周围仍有一些持久空间.例如:
plot.new()
par(mar=c(0,0,0,0))
plot.window(c(0,1),c(0,1))
points(c(1,1,0,0),c(1,0,1,0))
Run Code Online (Sandbox Code Playgroud)
我希望这些点集中在图的极端边缘.有没有par
我失踪的?
如何运行R脚本强制会话是交互式的.文档?interative
说--ess
并--interactive
控制了这一点,但我没有看到任何影响.
视窗:
C:\Program Files\R\R-3.0.1\bin>R -e "interactive()" --ess -s
[1] FALSE
Run Code Online (Sandbox Code Playgroud)
苹果电脑:
$ R -e "interactive()" --interactive -s
[1] FALSE
Run Code Online (Sandbox Code Playgroud)
有什么想法吗?
编辑:我想可以破解可能适用于某些事情的基本命名空间(如install.packages).但这对解决方案来说是一个糟糕的借口......
$ R -e "unlockBinding('interactive',as.environment('package:base'));assign('interactive',function() TRUE,envir=as.environment('package:base'));base::interactive()" --interactive -s
[1] TRUE
Run Code Online (Sandbox Code Playgroud)