R 迭代构建ggplot复合

我想使用ggplot迭代生成绘图

假设我生成并绘制一个数据帧

library(ggplot2)
library(reshape2)

x <- seq(0, 4 * pi, 0.1)
n <- length(x)
y1 <- 0.5 * runif(n) + sin(x)
df1 <- data.frame(x,y1)
df1m <- melt( df1, id="x")
p1 <- ggplot( data=df1m, aes(x=x,y=value)) + geom_point(color="blue")
p1

---

如果df1和df2同时可用，那么有很多这样做的例子，我确信我可以存储各个数据帧，但理想情况下，我希望能够在数据可用时构建一个图形。

您可以在同一绘图中添加第二层

library(ggplot2)

p1 <- ggplot() + geom_point(data=df1m, (aes(x=x,y=value)), color="blue")

p1 + geom_point(data=df2m, aes(x=x,y=value), color="red")

库（ggplot2）
p1是一个直接而有用的答案。非常感谢。
p1 + p2

library(ggplot2)

p1 <- ggplot() + geom_point(data=df1m, (aes(x=x,y=value)), color="blue")

p1 + geom_point(data=df2m, aes(x=x,y=value), color="red")