r语言折线图_R语言--绘制多分组折线图

自从学了R以后，对R产生了一种“偏见”：R can do everything!

这不，自己一顿乱搜+help，根据自己对图的癖好，调整好一组代码。

####

查看我们收集到的数据是这样的

而我们需要的数据格式是这样的

所有需要先进行数据格式的转换

library(readxl)#加载readxl包，读取xlsx格式文件，载入数据并赋值
path="./Book1.xlsx"
sheet1=readxl::read_xlsx(path,sheet = "Sheet1")
sheet2=readxl::read_xlsx(path,sheet = "Sheet2")##dat和data两种方式均可以,dat的数据时exls表格中sheet2的数据，data中是sheet1的数据

##赋值及数据处理，这一部分稍繁琐，有好的建议望留言奥

book1=sheet2
book2=sheet1
##拆分数据
a=book1[,1:2]
a$Type=rep(colnames(a)[2],length(rownames(a)))
colnames(a)[2]="Value"
b=book1[,c(1,3)]
b$Type=rep(colnames(b)[2],length(rownames(b)))
colnames(b)[2]="Value"
d=book1[,c(1,4)]
d$Type=rep(colnames(d)[2],length(rownames(d)))
colnames(d)[2]="Value"
e=book1[,c(1,5)]
e$Type=rep(colnames(e)[2],length(rownames(e)))
colnames(e)[2]="Value"
f=book1[,c(1,6)]
f$Type=rep(col