求助-R语言 如何将不同时间段的数据按日期做成多组折线图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

希望做成 横坐标为小时时间段 纵坐标为值 每一条折现代表一日数据不同时间段的变化，一共有31条折线的折线图 做成类似于这样的效果图

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：R语言 折线图 时间段 效果图 横坐标

你这表格下载不下来，你发给我

1308457685@qq.com

绝世涛神 发表于 2020-12-17 16:59
你这表格下载不下来，你发给我

1308457685@qq.com

已经发送到你的邮箱里了，非常感谢！

1. install.packages('readxl')
   
2. install.packages('ggplot2')
   
3. install.packages('reshape2')
   
4. library(readxl)
   
5. library(ggplot2)
   
6. library(reshape2)
   
7. 
   
8. you<-read_xlsx('\\数据.xlsx')#文件路径
   
9. names(you)[1]<-'time'
   
10. label_s<-you$time
    
11. you$time<-1:9
    
12. you<-melt(you,id=c('time'))
    
13. names(you)<-c('time','date','value')
    
14. 
    
15. p<-ggplot(data=you)+
    
16.   geom_path(aes(x=time,y=value,color=date))+
    
17.   scale_y_continuous(limits = c(0,2500),name = '指标')+
    
18.   scale_x_continuous(breaks = c(1:9),labels = label_s,name='time')+
    
19.   theme_bw()+
    
20.   theme(axis.text.x = element_text(hjust = 1),
    
21.         plot.title = element_text(hjust = 0.5),
    
22.         axis.title.y = element_text(size=15),
    
23.         panel.grid = element_blank())
    
24. p

复制代码

install.packages('readxl')
install.packages('ggplot2')
install.packages('reshape2')
library(readxl)
library(ggplot2)
library(reshape2)

you<-read_xlsx('\\数据.xlsx')#文件路径
names(you)[1]<-'time'
label_s<-you$time
you$time<-1:9
you<-melt(you,id=c('time'))
names(you)<-c('time','date','value')

p<-ggplot(data=you)+
  geom_path(aes(x=time,y=value,color=date))+
  scale_y_continuous(limits = c(0,2500),name = '指标')+
  scale_x_continuous(breaks = c(1:9),labels = label_s,name='time')+
  theme_bw()+
  theme(axis.text.x = element_text(hjust = 1),
        plot.title = element_text(hjust = 0.5),
        axis.title.y = element_text(size=15),
        panel.grid = element_blank())
p

绝世涛神 发表于 2020-12-20 00:01
install.packages('readxl')
install.packages('ggplot2')
install.packages('reshape2')

非常感谢 问题已解决！