pop1=sample(100,30)
pop2=sample(300,30)   请问这部分代码是怎么用的？

谢谢已经解决了！
修改过的代码：
library(lubridate)
library(ggplot2)
M$date <- as.Date(M$date,"%Y-%m-%d")
pop=sample(pop,364)
pop1=sample(pop1,364)
df=data.frame(date,pop,pop1)
ggplot(df,aes(x=date(date),y=pop))+
  geom_line(aes(y=pop),color="grey",size=0.8)+
       geom_line(aes(y=pop1),color="red",size=0.8)+scale_x_date(breaks=as.Date(c("2018-01-
               01","2018-06-13","2018-07-20","2018-12-30")),date_labels = "%m/%d")

可以把两个图共用X轴放在一张图里~如果有更好的代码修改，欢迎一起探讨！