全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
3335 4
2020-12-17
希望做成 横坐标为小时时间段 纵坐标为值 每一条折现代表一日数据不同时间段的变化,一共有31条折线的折线图 做成类似于这样的效果图 excel效果图.png
附件列表
excel效果图.png

原图尺寸 64.13 KB

excel效果图.png

000.png

原图尺寸 29.18 KB

000.png

数据.xlsx

大小:11.76 KB

 马上下载

二维码

扫码加我 拉你入群

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

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

全部回复
2020-12-17 16:59:50
你这表格下载不下来,你发给我

1308457685@qq.com
二维码

扫码加我 拉你入群

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

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

2020-12-19 21:33:43
绝世涛神 发表于 2020-12-17 16:59
你这表格下载不下来,你发给我

1308457685@qq.com
已经发送到你的邮箱里了,非常感谢!
二维码

扫码加我 拉你入群

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

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

2020-12-20 00:01:24
复制代码


二维码

扫码加我 拉你入群

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

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

2020-12-20 00:01:50
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-21 15:07:12
绝世涛神 发表于 2020-12-20 00:01
install.packages('readxl')
install.packages('ggplot2')
install.packages('reshape2')
非常感谢 问题已解决!
二维码

扫码加我 拉你入群

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

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

相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群