小编ECI*_*CII的帖子

我正在多个工作站(主要是Linux)上进行数据分析,我想在所有平台上维护相同的已安装软件包.我使用以下代码来同步与Dropbox结合使用的软件包:

rm(list=ls())
oldip <- read.csv("/home/USER/Dropbox/System/R/oldip.csv")
oldip<-as.character(oldip$x)
installed<-as.character(installed.packages()[,1])
symdiff <- function( x, y) { setdiff( union(x, y), intersect(x, y))}
for(i in symdiff(oldip, installed))  
     install.packages(i,repos="http://cran.at.r-project.org/" ) 
update.packages(checkBuilt = TRUE, ask = FALSE, repos="http://cran.at.r-project.org/")
rm(i);rm(installed)
oldip<-c(installed.packages()[,1])
write.csv(oldip, "/home/USER/Dropbox/System/R/oldip.csv")

可以出问题并弄乱我的R装置吗？我应该避免使用这种方法"盲"和"自动"更新一些软件包吗？

我想计算蓝线和灰色对角线之间的区域.

我可以将蓝线下的面积计算为:

library(zoo)    
id <- order(x)
AUC <- sum(diff(x[id])*rollmean(y[id],2))

(感谢计算R中曲线下的面积)

任何想法如何找到蓝线和灰线之间的区域？

在此先感谢EC

我有3个分类变量

agegroup{<20,20-30,>03}    
disease.level{0,1,2},  
performance{<60, >=60}

我希望将它们组合成一个具有3x3x2级别的虚拟变量.有没有快速的方法来做到这一点？我的原始数据集有大约10个变量,每个变量都有多个级别.

基本上我要求与此问题完全相反的是 从分类变量创建新的虚拟变量列

非常感谢EC

可能重复:
R:在R命令行中显示时钟

有没有办法配置R,以便它在提示">"之前显示时间戳？

非常感谢EC

我怎样才能对输出进行排序

s3cmd ls s3://xxx.yyy.zzz/kkk/

根据日期？

(这与如何排序"s3cmd ls"的输出不重复)

非常感谢你

我需要创建一个复杂的图例,其中包含一个分数,分子和分母有不同的颜色 .

是否有可能用(基础)R创建这样的传奇？

由于我必须在几个不同的图中添加这个图例,我不想手动编写文本,但能够自动添加它作为图例.它不一定是一个图例(虽然它会很方便),但我不想手动输入每个元素的坐标.

有任何想法吗？!

我有一个

plot(1,1)
legend("bottomleft", c("A","B","C"), lwd=3, bty="n",lty=c(1,3,4))

是否可以使图例中的线条更长(仅限基础R)？当线条太短时,在图例中立即看到lty = 3和lty = 4的区别似乎有点困难.增加lwd也无济于事.

非常感谢

我正在尝试构建一个由2-3个图组成的filled.contour图表.所有绘图的色标都相同,我只想要一个z值键图.我很难做到这一点par(mfrow=c(1,3))

示例代码:

x <- 1:5
y <- 1:5
z <- matrix(outer(x,y,"+"),nrow=5)
filled.contour(x,y,z)
filled.contour(x,y,z,color.palette=rainbow)
z2 <- z
z2[5,5] <- Inf
filled.contour(x,y,z2,col=rainbow(200),nlevels=200)

是否可以仅使用一个z值颜色键将这些图中的2-3个堆叠在一起？我可以在GIMP中做到这一点,但我想知道它是否可能是本机的.

我有一个用于绘制填充轮廓的自定义功能,这些功能主要基于Carey McGilliard和Bridget Ferris的工作(http://wiki.cbr.washington.edu/qerm/sites/qerm/images/1/16/Filled.contour3.R)和http://wiki.cbr.washington.edu/qerm/index.php/R/Contour_Plots.

该filled.contour3函数在R 2.15.3中完美运行,但在R 3.0.x中抛出错误

Error in .Internal(filledcontour(as.double(x), as.double(y), z, as.double(levels),  : 
  there is no .Internal function 'filledcontour'

你能帮我解决一下这个问题,或者解决这个问题,这样我才能使用filled.contour3()R 3.0.x中的这个功能.*我的大部分工作都取决于这个功能而且我在LInux上,因此在生产机器上改变R版本并不容易.很乐意提供赏金.*

要重现错误,请首先提供以下信息

filled.contour3 <-
    function (x = seq(0, 1, length.out = nrow(z)),
                        y = seq(0, 1, length.out = ncol(z)), z, xlim = range(x, finite = TRUE), 
                        ylim = range(y, finite = TRUE), zlim = range(z, finite = TRUE), 
                        levels = pretty(zlim, nlevels), nlevels = 20, color.palette = cm.colors, 
                        col = …

我无法围绕这个ave功能.我阅读了帮助并搜索了网络,但我仍然无法理解它的作用.据我所知,它在观察的子集上应用了某些功能,但与例如的方式不同tapply

有人可以用一个小例子来启发我吗？

谢谢,请原谅我或许是一个不寻常的请求.