如何组合不同行（数据框）的图形并在 R 中绘制同一个图形？

Question

我有 3 组不同行的名为 "EPp4"、"JPp4" 和 "USp4" 的数据框。数据框如下所示。

EPp4
Source: local data frame [37 x 3]

    Year     n     N
   (int) (int) (int)
1   1979     2     2
2   1980     3     5
3   1981     4     9
4   1982    18    27
5   1983     8    35
6   1984     4    39
7   1985     8    47
8   1986     6    53
9   1987    11    64
10  1988     2    66
..   ...   ...   ...

我想使用 cbind 绘制一个结合了所有三组 df 的图形，但每组都有不同的行。

y <- cbind(EPp4, JPp4[,2], USp4[,2], DEp4[,2], CNp4[,2])

Error in data.frame(..., check.names = FALSE) : 
  arguments imply differing number of rows: 37, 23, 69

所以，我没办法，只能把它改成同样的号码。的行。有没有更好的方法来做到这一点？或者我可以在同一个图表中用不同的行绘制其中的三个吗？感谢您的帮助。

EPp5 <- EPp4[15:37,1:2]
USp5 <- USp4[47:69,1:2]
JPp5 <- JPp4[,1:2]
y <- cbind(EPp5, JPp5[,2], USp5[,2])

g <- ggplot(y, aes(Year))
g <- g + geom_line(aes(y=n1), colour="green")
g <- g + geom_line(aes(y=n2), colour="red")
g <- g + geom_line(aes(y=n3), colour="blue")
g <- g + ylab("Counts") + xlab("Year")

Answer 1

您可以为每个几何对象指定一个自己的数据集。

library(ggplot2)

df1<-data.frame(x=1:20,y=1:20)
df2<-data.frame(x=1:10, y=11:20)

ggplot()+geom_line(aes(x=x,y=y), data = df1)+geom_line(aes(x=x,y=y), data = df2)

*编辑

添加 Heroka 的答案（我希望 Heroka 没问题？）

#adding id
df1<-data.frame(df1, id = rep("a", nrow(df1)))
df2<-data.frame(df2, id = rep("b", nrow(df2)))

df<-rbind(df1,df2)


ggplot(data = df)+geom_line(aes(x=x,y=y,color = id))

如何组合不同行（数据框）的图形并在 R 中绘制同一个图形？

How to combine graph of different rows (data frame) & plot in a same graph in R?

plot

r

ggplot2

dataframe

cbind