为了弄清楚我在问什么,我创造了一个简单的例子.第一步是创建一些数据:
gender <- factor(rep(c(1, 2), c(43, 41)), levels = c(1, 2),labels = c("male", "female"))
numberofdrugs <- rpois(84, 50) + 1
geneticvalue <- rpois(84,75)
death <- rpois(42,50) + 15
y <- data.frame(death, numberofdrugs, geneticvalue, gender)
Run Code Online (Sandbox Code Playgroud)
所以这些是一些随机日期合并为一个data.frame.因此,从这些日期开始,我想绘制一个云,我可以在男性和女性之间进行区分,并在其中添加两个简单的回归(一个用于女性,一个用于男性).所以我已经开始了,但我无法达到我想要的程度.请看下面到目前为止我做了什么:
require(lattice)
cloud(y$death~y$numberofdrugs*geneticvalue)
Run Code Online (Sandbox Code Playgroud)

xmale <- subset(y, gender=="male")
xfemale <- subset(y, gender=="female")
death.lm.male <- lm(death~numberofdrugs+geneticvalue, data=xmale)
death.lm.female <- lm(death~numberofdrugs+geneticvalue, data=xfemale)
Run Code Online (Sandbox Code Playgroud)
如何在使用云命令时为男性或女性制作不同的点(例如蓝色和粉红色点而不仅仅是蓝色十字),如何将两个估计模型添加到云图中?
任何想法都表示赞赏!谢谢你的想法!
我目前正在使用R,我想知道在声明列表时如何标记列表对象.例如:return(list(xhat,alpha,beta)),和xhat,alpha和beta
本身阵列.我想给每个人一个合适的标签.
谢谢.
在R中,很容易将矩阵转换为箱线图
> myMatrix
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 27 32 31 28 20 28 10 29 15 29
[2,] 31 33 20 28 21 9 14 21 34 33
[3,] 27 33 28 23 26 33 19 11 26 30
[4,] 33 17 10 31 10 32 10 29 31 28
[5,] 25 10 29 34 32 33 28 32 32 32
[6,] 32 19 13 32 26 20 9 26 32 33
[7,] …Run Code Online (Sandbox Code Playgroud) 据"写作R附加"手册中,有三个目录,其中RDA文件可以放在:/R,/data,/inst/extdata
很难从手册中解读最佳实践.有人可以评论何时/为何将RDA文件放在这三个目录中的每一个中.
以下是我正在解决的具体案例:
我有1个RDA文件,将用于函数示例以及我的test_that测试(所有这些都存在于inst/tests中)
我从R-3.1升级到R-3.2.好的(标准升级)
但是这次升级似乎已经丢失了所有已安装的软件包(ggplot2,quantmod,Rcpp在几十个和其他几个中).
所以从RStudio工具菜单选项安装了很多.大多数都是成功的 但是Rcpp的问题(当从ggplot2安装为依赖时).安装包时会出现同样的问题data.table:
Warning in install.packages : unable to move temporary installation
‘C:\Users\euclid\Documents\R\win-library\3.2\file40fc19bc2752\colorspace’
to ‘C:\Users\euclid\Documents\R\win-library\3.2\colorspace’ package
‘Rcpp’ successfully unpacked and MD5 sums checked Warning in
install.packages : unable to move temporary installation
‘C:\Users\euclid\Documents\R\win-library\3.2\file40fc53e26272\Rcpp’ to
‘C:\Users\euclid\Documents\R\win-library\3.2\Rcpp’
Run Code Online (Sandbox Code Playgroud)
注意:单独安装软件包Rcpp时会发生相同的错误.
任何建议赞赏.
我不明白R里面的所有术语.我只有100级统计数据,试图了解更多.
我猜R有一个内置的百分位函数,名为我不认识或知道如何搜索的东西.
我可以写自己的,但是出于显而易见的原因使用内置的.
这是我写的那个:
percentile <- function(x) return((x - min(x)) / (max(x) - min(x))
Run Code Online (Sandbox Code Playgroud) 任何人都可以告诉我这个脚本出了什么问题?我需要2条水平,黑色,虚线,但我有两个红色连续.尽管使用了theme_bw,我也无法将绘图边距的颜色更改为黑色,并且根据需要,框图的填充也不是灰色.
dat1 <- data.frame (xvar = rep(c("A", "B"), each=10),
yvar = 1:20 + rnorm(20,sd=3))
ggplot(dat1, aes(x=xvar, y=yvar)) +
theme_bw()+
geom_boxplot(fill=grey)+
geom_hline(aes(yintercept=40, color="black", linetype="dashed"))+
geom_hline(aes(yintercept=33.84, color="black", linetype="dashed"))+
scale_x_discrete(name="") +
scale_y_continuous(name="temperature (°C)")+
opts(
panel.grid.major = theme_line(size = 0.5, colour = NA),
panel.background = theme_rect(colour = NA),
axis.title.y = theme_text(angle=90,face="bold", colour="black", size=14),
axis.text.y = theme_text(face="bold",angle=0, size=14,colour="black"),
axis.title.x = theme_text(face="bold", colour="black", size=14),
axis.text.x = theme_text( size=14,vjust=1.2, colour=NA))
Run Code Online (Sandbox Code Playgroud)
非常感谢!
我试图用相关矩阵制作一个图,并用三种颜色来表示使用库晶格的相关系数.
library(lattice)
levelplot(cor)
Run Code Online (Sandbox Code Playgroud)
我得到以下情节:

该图仅适用于我拥有的数据的子集.当我使用整个数据集(400X400)时,它变得不清楚,并且颜色没有正确显示并显示为点.对于大型矩阵,是否可以以平铺形式获得相同的内容?
我尝试使用pheatmap函数,但我不希望我的值被聚集,只是想要以tile形式清楚地表示高值和低值.
是rjava至R连接到Java的唯一途径?我问,因为网页末尾有免责声明:
此接口使用Java反射API来查找正确的方法,因此它更慢并且可能不正确(适用于简单示例,但可能不适用于更复杂的示例).目前,在程序中不鼓励使用它,因为它可能在将来发生变化.
这有点令人担忧.你是如何解决这个问题的?我知道Rweka有一个独立的界面,所以我可能会考虑那个包,但也许很多R用户已经经历过这些痛苦.
美好的一天,我希望使用ggplot2生成图形,但不使用其默认的分类变量排序(按字母顺序排列,在脚本中:字母),但使用连续变量的相关值(在脚本中:数字).
这是一个示例脚本:
library(ggplot2)
trial<-data.frame(letters=letters, numbers=runif(n=26,min=1,max=26))
trial<-trial[sample(1:26,26),]
trial.plot<-qplot(x=numbers, y=letters, data=trial)
trial.plot
trial<-trial[order(trial$numbers),]
trial.plot<-qplot(x=numbers, y=letters, data=trial)
trial.plot
trial.plot+stat_sort(variable=numbers)
Run Code Online (Sandbox Code Playgroud)
最后一行不起作用.