如何用ggplot畫幾條線？

Question

這段代碼畫了2行

dd = list(data.frame(rates=1:5), data.frame(rates=2:6), data.frame(rates=3:7))
library(ggplot2)
library(zoo)
g = ggplot(, aes(1:5))
g <- g + geom_line(aes(y = dd[[1]]$rate[index(dd[[1]]) <= 5]), colour="#000000")
g <- g + geom_line(aes(y = dd[[2]]$rate[index(dd[[2]]) <= 5]), colour="#000000")
g

但是這段代碼畫了1行（最后i，2）

dd = list(data.frame(rates=1:5), data.frame(rates=2:6), data.frame(rates=3:7))
g = ggplot(, aes(1:5))
foreach (i = 1:2) %do% {
  g <- g + geom_line(aes(y = dd[[i]]$rate[index(dd[[i]]) <= 5]), colour="#000000")
}
g

r小提琴示例

為什么以及如何解決？

Answer 1

正如我提到的，我認為您應該簡單地停止使用ggplot2 ：

g = ggplot(, aes(1:5))
foreach (i = 1:2) %do% {
  g <- g + geom_line(data = dd[[i]],aes(y = rates), colour="#000000")
}
g

就像您的第一個示例一樣，這將產生兩行。