繪制線而不是點R.

Question

這可能是一個簡單的問題，但我無法找到解決方案。

我有以下情節（我使用情節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)

我想創建相同的效果，但使用線條，而不是點（續行）

有什么建議嗎？

Answer 1

你有2個解決方案：

1. 使用lines()函數在（x，y）位置之間繪制線條。
2. 使用type = "l" plot

沒有可重復的例子很難顯示它，但你可以這樣做：

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
})

Answer 2

當談到生成您要根據一些分組變量連接線圖，你想從基地-R曲線走，並檢查了lattice和ggplot2 。 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的變量與您定義的顏色矢量類似，則應該能夠使用這樣的東西。