如何批量替换数据框列内的'1'为对应列的日期值？

原始数据集 #

Name  Mon    Tue
abc   44970  44971
def   NA     1
gh    1      NA

期望输出 #

Name  Mon    Tue
abc   44970  44971
def   NA     44971
gh    44970  NA

当前尝试的代码 #

test$Mon[test$Mon == '1'] <- '44970'

问题说明 #

上述代码仅支持单列替换，但实际需处理周一至周五的多列，且涉及200个不同日期的工作表，无法逐个硬编码日期值。需实现无需硬编码，自动将列中所有'1'替换为对应列第一行日期值的批量处理方案。

附：示例数据的dput输出 #

> dput(head(test))
structure(list(delete = c("...1", "#", "1", "1", "4", "1"), Employee = c("CBRE Downtown Corporate Office Weekly Check-In", 
"Employee Name", "Ad, Ant", "Ak, Ki", "Al, An", 
"Am, Ni"), Manager = c("...3", "Manager Name", "Ha, Er", 
"Dahlin, Alexandra", "Kruger, Katie", "Da, Al"), Dept. = c("...4", 
"Department", "Tram", "A", "T", 
"Shared Office Services"), Mon = c("44970", NA, NA, NA, NA, NA
), Tue = c("44971", NA, NA, "1", "1", "1"), Wed = c("44972", 
NA, "1", NA, "1", NA), Thur = c("44973", NA, NA, NA, "1", NA), 
    Fri = c("44974", NA, NA, NA, NA, NA)), row.names = c(NA, 
-6L), class = c("tbl_df", "tbl", "data.frame"))

解决方案 #

方法1：使用tidyverse工具链 #

利用dplyr的across()函数批量处理目标日期列，自动读取每列的首个有效日期值进行替换：

library(dplyr)

# 定义需要处理的日期列
date_cols <- c("Mon", "Tue", "Wed", "Thur", "Fri")

test_processed <- test %>%
  mutate(across(all_of(date_cols), ~ifelse(.x == '1', first(na.omit(.x)), .x)))

方法2：使用Base R #

通过循环遍历目标列，完成批量替换：

date_cols <- c("Mon", "Tue", "Wed", "Thur", "Fri")

for(col in date_cols) {
  # 获取当前列的基准日期（第一行非NA值）
  base_date <- test[[col]][!is.na(test[[col]])][1]
  # 替换列中所有'1'为基准日期
  test[[col]][test[[col]] == '1'] <- base_date
}

适配多工作表场景 #

若需处理200个工作表，可将替换逻辑封装为函数，结合lapply()批量处理：

replace_ones_with_date <- function(df) {
  date_cols <- c("Mon", "Tue", "Wed", "Thur", "Fri")
  for(col in date_cols) {
    base_date <- df[[col]][!is.na(df[[col]])][1]
    df[[col]][df[[col]] == '1'] <- base_date
  }
  return(df)
}

# 假设所有工作表存储在列表sheet_list中
processed_sheets <- lapply(sheet_list, replace_ones_with_date)

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