需要的包tidyr

长数据变宽数据

准备长数据

df<-read.xlsx("data.xlsx",sheetIndex=1)
View(df)

得到长数据：

长转宽函数spread()

#spread(data,key,value,fill=NA,convert=FALSE,drop=TRUE,sep=NULL)
df<-spread(data=df,key=年份,value=水泥)

得到长数据：

宽数据变长数据

函数gather()

#gather(data,key = "key",value = "value",...,na.rm = FALSE,convert = FALSE,factor_key = FALSE)
df<-gather(df,key=年份,value = 水泥,'2000':'2019')

得到长数据：