加载本期绘图要用到的R包: library(tidyverse) #ggplot2包等 library(reshape2) #用到melt()函数将宽数据转换成长数据 读入数据: #数据包含了绘制分组柱状图和折线图两部分: data<- read.table("D:/Rwork/write/22.03/2022.3.25.txt",head = T,sep="\t") 绘