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

1308457685@qq.com

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

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

非常感谢 问题已解决！