绘制线而不是点R.

时间:2012-12-31 11:20:09

标签: r

这可能是一个简单的问题,但我无法找到解决方案。

我有以下情节(我使用情节CI,因为我无法使用plot()填充点)。

leg<-c("1","2","3","4","5","6","7","8")
Col.rar1<-c(rgb(1,0,0,0.7), rgb(0,0,1,0.7), rgb(0,1,1,0.7),rgb(0.6,0,0.8,0.7),rgb(1,0.8,0,0.7),rgb(0.4,0.5,0.6,0.7),rgb(0.2,0.3,0.2,0.7),rgb(1,0.3,0,0.7))
library(plotrix)
plotCI(test$size,test$Mean, 
pch=c(21), pt.bg=Col.rar1,xlab="",ylab="", ui=test$Mean,li= test$Mean)
legend(4200,400,legend=leg,pch=c(21),pt.bg=Col.rar1, bty="n", cex=1)

enter image description here

我想创建相同的效果但是使用线条而不是点(续行)

有什么建议吗?

2 个答案:

答案 0 :(得分:19)

你有2个解决方案:

  1. 使用lines()功能在(x,y)位置之间绘制线条。
  2. plottype = "l"一样使用行
  3. 如果没有可重复的示例,很难显示它,但您可以这样做:

    Col.rar1<-c(rgb(1,0,0,0.7), rgb(0,0,1,0.7), rgb(0,1,1,0.7),rgb(0.6,0,0.8,0.7),rgb(1,0.8,0,0.7),rgb(0.4,0.5,0.6,0.7),rgb(0.2,0.3,0.2,0.7),rgb(1,0.3,0,0.7))
    
    x <-  seq(0, 5000, length.out=10)
    y <- matrix(sort(rnorm(10*length(Col.rar1))), ncol=length(Col.rar1))
    plot(x, y[,1], ylim=range(y), ann=FALSE, axes=T,type="l", col=Col.rar1[1])
    
    lapply(seq_along(Col.rar1),function(i){
      lines(x, y[,i], col=Col.rar1[i])
      points(x, y[,i])  # this is optional
    })
    

    enter image description here

答案 1 :(得分:5)

在生成根据某个分组变量连接线条的图表时,您希望远离base-R图并查看latticeggplot2。 Base-R图在xy图中没有简单的“组”概念。

一个简单的lattice示例:

library( lattice )
dat <- data.frame( x=rep(1:5, times=4), y=rnorm(20), gp=rep(1:4,each=5) )
xyplot( y ~ x, dat, group=gp, type='b' )

如果test中的变量与您定义的颜色矢量相似,则应该可以使用此类内容。