R语言中数据的宽格式转换为长格式

 

001、

dat <- data.frame(a = 1:4, b= 5:8, c = 11:14, d = 15:18, row.names = paste0("sample", 1:4))   
dat                                                     ## 测试数据框
library(tibble)
dat2 <- rownames_to_column(dat, "samples")              ## 将数据框的行名转换为第一列
dat2

library(tidyr)
pivot_longer(dat2,                                      ## 将数据的宽格式转换为长格式
  cols      = -samples,
  names_to  = "columns",
  values_to = "values"
)

 

。