求助！如何用ggplot2把同一时间的两组数据放到一个图里？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助：我想用ggplot2把同一时间内的两组或多组数据放到一张图里展示，数据如下：

我的代码如下：
M<-read.csv("data1.csv")
attach(M)
M$date <- as.Date(M$date,"%Y-%m-%d")
class(M$date)
da01 <- data.frame( x = date, y = data$pop)
da02 <- data.frame( x = date, y = data$pop1)

但是提示：Error in data$pop : 类别为'closure'的对象不可以取子集，该怎么修改？不胜感激！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

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

复制代码

caozhaowen 发表于 2020-3-3 19:26

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

blanche1987 发表于 2020-3-4 10:27
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轴放在一张图里~如果有更好的代码修改，欢迎一起探讨！