R语言使用apply类函数为列表中每个dataframe添加新列

报错原因说明 #

• 第一个lapply报错：你定义的week_no函数仅支持单日期输入，直接传入整列日期时，函数内部的if判断会接收长度大于1的逻辑值，触发警告，后续seq.Date调用也会因为输入参数长度大于1报错。你之前的for循环里嵌套了sapply逐元素调用week_no，所以能正常运行。
• 第二个mapply报错：你直接在全局环境调用strsplit(Timestamp, "T")，但Timestamp是每个dataframe的内部列，全局环境不存在这个变量，因此触发找不到对象的错误。

最优实现方案 #

不需要修改你原有week_no函数，直接用lapply嵌套sapply即可实现和for循环完全一致的效果，代码更简洁：

mapp_dfs <- lapply(mapp_dfs, function(df) {
  # 提取Timestamp中T之前的日期部分，比strsplit写法更简洁
  date_vec <- as.Date(sub("T.*", "", df$Timestamp))
  # 逐日期调用week_no生成周数列
  df$week_nums <- sapply(date_vec, week_no)
  return(df)
})

如果想要更简化的写法，可以用Vectorize函数直接将原单输入的week_no转为向量化函数，后续调用不需要嵌套sapply：

# 转换原函数为向量化版本
week_no_vec <- Vectorize(week_no)

# 一行代码完成所有dataframe的列添加
mapp_dfs <- lapply(mapp_dfs, transform, 
                   week_nums = week_no_vec(as.Date(sub("T.*", "", Timestamp))))

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