library(xlsx) data<- read.xlsx('G:/.xlsx',1) #宽数据变长数据 library(tidyverse)...