上代码

library(lubridate)
library(ggplot2)
date=Sys.Date()-1:30
pop1=sample(100,30)
pop2=sample(300,30)
df=data.frame(date,pop1,pop2)
ggplot(df,aes(x=ymd(date),y=pop1))+
  geom_line()+
  geom_line(aes(y=pop2),color="red")

原文链接： 求助！如何用ggplot2把同一时间的两组数据放到一个图里？ - R语言论坛 - 经管之家(原人大经济论坛)