如何在r语言中将宽的数据转变为长的数据

来自刚学r语言的提问，请大家来帮帮忙！虽然excel自带转置粘贴，但是由于数据量较大太费时间！
待转变

已转变

不难，有两种办法，一种是用reshape2包。library(reshape2) data_m = melt(data, id="编号")。另外一种是用library(tidyr)# 使用的gather & spread，data_g = gather(data, 编号, 诊次1:诊次5)