R语言如何对数据框列表应用dplyr的pivot_longer函数

• 遍历对象选择错误：你写的lapply(names(implist), ...)是在遍历列表的元素名（字符串类型），但自定义函数内部完全没有调用传入的参数x，pivot_longer没有接收到要处理的数据框对象，无法执行转换。
• 参数传递错误：就算你在函数里用了x，x只是数据框对应的名称字符串，不是数据框本身，pivot_longer无法对字符串做长宽表转换。
• 额外注意：pivot_longer是tidyr包的函数，不是dplyr包的，运行前需要确保已加载tidyr。

直接遍历列表对象本身即可，不需要遍历名称，代码如下：

# 先加载依赖包
library(tidyr)

# 对列表内每个数据框应用长宽转换
implist_long <- lapply(implist, function(current_df) {
  pivot_longer(
    data = current_df,
    cols = c("C1_PTAH_log", "Post_PTAH_log"),
    names_to = "time_log",
    values_to = "values_log"
  )
})

如果你习惯用tidyverse风格的purrr包实现，也可以用下面的写法，效果完全一致：

library(purrr)
library(tidyr)

implist_long <- map(implist, ~pivot_longer(
  .x,
  cols = c("C1_PTAH_log", "Post_PTAH_log"),
  names_to = "time_log",
  values_to = "values_log"
))

如果你确实需要遍历列表名称来实现（比如需要保留自定义名称匹配逻辑），需要在函数内通过名称取到对应的数据框再传入pivot_longer，参考写法：

implist_long <- lapply(names(implist), function(df_name) {
  pivot_longer(
    data = implist[[df_name]],
    cols = c("C1_PTAH_log", "Post_PTAH_log"),
    names_to = "time_log",
    values_to = "values_log"
  )
})

这种写法多了一步索引取数，没有特殊需求不推荐使用。

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