R语言如何对DataFrame列应用函数？lapply修改date列无变化如何解决

• 你通过df["date"]取到的是单列DataFrame结构，不是date列的向量。lapply会将整个date列作为单个元素传入自定义函数，而非逐行处理每个日期值，自然不会得到预期的逐行修改结果。
• 自定义函数内使用的if判断仅支持单个逻辑值，传入整列的日期向量时，只会取第一个元素的判断结果生效，同时lapply返回的列表结构直接赋值给DataFrame列也会导致结果异常。

方案1：用sapply逐行处理（保留自定义函数写法） #

提取列向量后用返回向量的sapply代替lapply：

library(stringr)
adder_dd_with_yyyy_mm <- function(date) {
  if(str_count(date, "-") == 1) {
    return(paste(date, "01", sep = "-"))
  } else {
    return(date)
  }
}

df <- read.csv("figure_metadata.tsv", sep = "\t")
# 提取date列向量后用sapply处理，返回字符向量直接赋值
df$date <- sapply(df$date, adder_dd_with_yyyy_mm)

方案2：向量化操作（更高效，无需显式循环） #

R更推荐向量化操作，直接用ifelse处理整列，性能远高于循环类操作：

library(stringr)
df <- read.csv("figure_metadata.tsv", sep = "\t")
df$date <- ifelse(str_count(df$date, "-") == 1, paste0(df$date, "-01"), df$date)

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