R中如何将Nature论文数据集指定行列转换为带分组的长格式

你已经加载了tidyverse系列工具包，直接运行以下代码即可实现需求：

# 处理Efficient组数据（第4行，2~31列）并转长格式
efficient_data <- myData %>%
  slice(4) %>%
  select(2:31) %>%
  pivot_longer(cols = everything(), names_to = "column_name", values_to = "value") %>%
  mutate(group = "Efficient")

# 处理Inefficient组数据（第12行，2~37列）并转长格式
inefficient_data <- myData %>%
  slice(12) %>%
  select(2:37) %>%
  pivot_longer(cols = everything(), names_to = "column_name", values_to = "value") %>%
  mutate(group = "Inefficient")

# 合并两个分组得到最终长表
final_long_data <- bind_rows(efficient_data, inefficient_data)

代码说明：

• slice() 函数用于提取指定行号的行，select() 函数用于提取指定列范围的列
• pivot_longer() 把原来宽格式的多列数据转为长格式，你可以根据实际需求修改names_to和values_to对应的字段名
• mutate() 给每行添加对应的分组标识，方便后续分组统计或者可视化
• 最终得到的final_long_data就是带分组标识的完整长格式数据

内容的提问来源于stack exchange，提问作者Jago