我想绘制(用ggplot)多组线,其中多组线嵌套在组内,即组1由两条独立的线组成,组2由两条独立的线组成,等等,但是这些线应具有相同的颜色跨群体。我知道我可以使用循环遍历各个组,但我想避免这种情况。结果应类似于此(忽略粗体行)。
此代码产生一个示例数据集。
y <- rep(NA,60)
y[1] <- rnorm(1,0.5)
for (t in 2:60){
y[t] <- rnorm(1,y[t - 1],0.5)
}
n <- 2
data <- as.data.frame(cbind(rbind(cbind(rep(seq(1,30),n),sort(rep(seq(1,30)),y),cbind(rep(seq(1,y)),3),30))) )
colnames(data) <- c("t","n","y","group")
data$y <- data$y + rnorm(3 * 30 * 2,0.1)