小编Ada*_* SO的帖子

当我将因子转换为数字或整数时,我得到基础级别代码,而不是值作为数字.

f <- factor(sample(runif(5), 20, replace = TRUE))
##  [1] 0.0248644019011408 0.0248644019011408 0.179684827337041 
##  [4] 0.0284090070053935 0.363644931698218  0.363644931698218 
##  [7] 0.179684827337041  0.249704354675487  0.249704354675487 
## [10] 0.0248644019011408 0.249704354675487  0.0284090070053935
## [13] 0.179684827337041  0.0248644019011408 0.179684827337041 
## [16] 0.363644931698218  0.249704354675487  0.363644931698218 
## [19] 0.179684827337041  0.0284090070053935
## 5 Levels: 0.0248644019011408 0.0284090070053935 ... 0.363644931698218

as.numeric(f)
##  [1] 1 1 3 2 5 5 3 4 4 1 4 2 3 1 3 5 4 5 3 2

as.integer(f)
##  [1] 1 1 3 2 5 …

我需要制作一个空图.这是我能想到的最好的.

plot(0, xaxt = 'n', yaxt = 'n', bty = 'n', pch = '', ylab = '', xlab = '')

更简单的解决方案？

PS:完全空,没有轴等.

灵感来自这个主题 如何找到带有Mathematica的Waldo？

我从未在R中进行图像处理,但也许其他人想要分享...

谢谢!

你怎么用R中的矩阵制作图像？

矩阵值将对应于图像上的像素强度(虽然我只对此时的0,1值白色或黑色感兴趣.),而列和行编号对应于图像上的垂直和水平位置.

通过制作图像我的意思是在屏幕上显示它并将其保存为jpg.

谢谢你的阅读.我发现我无法在绘图区域之外绘制线条/点或添加文本.如果我从绘图内部(轴内)区域绘制一条线到xlab主标题区域的区域,则只显示绘图中的部分.在多绘图图(mfrow)中,线/点将仅绘制在最后一个活动图中.

plot(0);
l=locator(2,type='n');
lines(l, type='l'); 

任何解决这个问题的方法？谢谢!

用户如何以交互方式更改2D图上的一个方面(例如,线的方向或长度)？

有关如何将cex校准为字体大小单位的任何想法？

具体来说,我想使用默认系列'Helvetica'并指定字体大小以对应.doc字体大小.例如,对于主标题使用字体大小12,对于轴标题使用字体大小10.

我很感激你的建议和建议.谢谢!

有没有办法将ddply/sapply中的变量值直接传递给没有函数(x)表示法的函数？

例如,而不是:ddply(bu,.(trial),function(x)print(x $ tangle))

有办法吗:ddply(bu,.(试用),print(纠结))

我问,因为有很多变量,这种符号变得非常麻烦.

谢谢!

谢谢你的阅读.我经常发现我需要将一个函数应用于我的数据切片,然后绑定输出.我通常会为此目的构建一个循环,但我确信我做错了,在RI中应该使用不同的思维方式.你能帮助我学习更好的方法吗？

谢谢,

亚当

    rm(m); m=0; # this variable will hold the output of the loop
    for (nobs in as.numeric(levels(factor(s1$obs)))) { # go over observer index
       for (nses in as.numeric(levels(factor(subset(s1, obs==nobs)$session)))) { # go over session index
          ns1=subset(s1, obs== nobs & session==nses & ky %in% c(1,2)); # the data slice of interest
          ds=round( clfdMc (ns1),2); cs=round( cfdMc (ns1),2); # apply function to data slice
          rw=cbind(nobs,nses,ds[2,3],ds[3,3],ds[2,3]-ds[3,3], cs[1,3],cs[2,3],nobs+nses/10, ds[2,4],ds[3,4],cs[1,4],cs[2,4]) # create a row from function output
          m=rbind(m,rw); #print(paste('obs:',nobs,' nses:',nses,'clear d:',ds[2,3],'red d',ds[3,3]))# bind new …