在R语言中重排表格：脂质浓度数据格式转换需求

假设你的原始数据框名为lipid_data，可以借助tidyverse工具包的pivot_longer()函数快速完成宽格式到目标长格式的转换，代码如下：

1. 加载依赖包 #

library(tidyverse)

2. 执行格式转换 #

如果原始数据的第一列为脂质名称，后续列是24hr和48hr对应的浓度值，执行以下代码：

target_data <- lipid_data %>%
  pivot_longer(
    cols = -1,  # 排除脂质名称列
    names_to = "Storage Time",  # 生成存储时间列的名称
    values_to = "Concentration"  # 生成浓度值列的名称
  )

优化写法（如果知道脂质名称列的具体列名） #

比如脂质名称列的列名为Lipid，可以把代码改成更具可读性的版本：

target_data <- lipid_data %>%
  pivot_longer(
    cols = -Lipid,
    names_to = "Storage Time",
    values_to = "Concentration"
  )

转换完成后，target_data会包含三列：脂质名称、存储时间（取值为24hr或48hr）、对应浓度值，完全匹配你的目标格式要求。

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