楼主: blanche1987
1755 4

[问答] 求助!如何用ggplot2把同一时间的两组数据放到一个图里? [推广有奖]

  • 0关注
  • 0粉丝

小学生

85%

还不是VIP/贵宾

-

威望
0
论坛币
18 个
通用积分
1.0000
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
182 点
帖子
6
精华
0
在线时间
10 小时
注册时间
2020-3-2
最后登录
2021-9-16

相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
求助:我想用ggplot2把同一时间内的两组或多组数据放到一张图里展示,数据如下:
QQ图片20200303150135.png
我的代码如下:
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'的对象不可以取子集,该怎么修改?不胜感激!
二维码

扫码加我 拉你入群

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

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


沙发
caozhaowen 在职认证  发表于 2020-3-3 19:26:56 |只看作者 |坛友微信交流群
  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")
复制代码

Rplot01.png (5.96 KB)

Rplot01.png

使用道具

藤椅
blanche1987 发表于 2020-3-4 10:27:40 |只看作者 |坛友微信交流群
caozhaowen 发表于 2020-3-3 19:26
pop1=sample(100,30)
pop2=sample(300,30)   请问这部分代码是怎么用的?

使用道具

板凳
blanche1987 发表于 2020-3-4 10:36:07 |只看作者 |坛友微信交流群
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")

使用道具

报纸
blanche1987 发表于 2020-3-4 10:37:28 |只看作者 |坛友微信交流群
可以把两个图共用X轴放在一张图里~如果有更好的代码修改,欢迎一起探讨!

1.png (41.04 KB)

1.png

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-12-23 13:25