如何修改R代码将CSV中的TRUE/FALSE替换为Updated/Not Updated

看起来你遇到的问题根源就在那个yn_to_logical函数里——它把数据库返回的"Y"/"N"转换成了布尔值TRUE/FALSE，这就是CSV里出现这些值的核心原因。另外，数据框里已有的布尔列也需要统一替换成你想要的文本，同时还要保证后续的统计计算不受影响。下面是具体的修改步骤：

1. 从源头上修改转换函数（避免生成布尔值） #

把原来的yn_to_logical函数改成直接返回目标文本，而不是逻辑值：

# 替换原有的yn_to_logical函数
yn_to_text <- function(x) {
  y <- rep.int(NA_character_, length(x))  # 初始化字符型向量，NA后续会被处理为空
  y[x == "Y"] <- "Updated"
  y[x == "N"] <- "Not Updated"
  y
}

记得把脚本里所有调用yn_to_logical的地方，都改成调用这个新的yn_to_text函数，这样从数据库获取的数据会直接转换成你需要的文本格式。

2. 批量替换已有布尔列的值 #

如果你的Today_Active_address_wf数据框里已经存在布尔类型的列（比如dupCloseFlag、inconsistentDataFlag这些），可以用这段代码批量替换：

# 遍历数据框中的逻辑型列，替换为对应文本
for(col in names(ForPrintONLYToday_Active_address_wf)) {
  if(is.logical(ForPrintONLYToday_Active_address_wf[[col]])) {
    # 替换TRUE/FALSE为目标文本
    ForPrintONLYToday_Active_address_wf[[col]] <- ifelse(ForPrintONLYToday_Active_address_wf[[col]], "Updated", "Not Updated")
    # 将NA值设为空字符串，匹配write.csv的na=""参数
    ForPrintONLYToday_Active_address_wf[[col]][is.na(ForPrintONLYToday_Active_address_wf[[col]])] <- ""
  }
}

这段代码会自动识别数据框里的布尔列，完成替换后，空值会保持为你需要的空单元格。

3. 确保统计计算正常运行 #

注意脚本后面的sum计算原本是基于布尔值的（比如sum(ForPrintONLYToday_Active_address_wf$dupCloseFlag, na.rm = TRUE)），换成文本后直接sum会出错，你可以二选一处理：

• 方式一：先计算统计值，再替换文本。把统计计算的代码（addInfo2相关）放在替换文本的代码前面，这样还是基于原始布尔值计算。
• 方式二：修改sum逻辑，统计"Updated"的行数：

# 示例：原来的sum(dupCloseFlag...)修改为
sum(ForPrintONLYToday_Active_address_wf$dupCloseFlag == "Updated", na.rm = TRUE)

需要把addInfo2里的所有sum计算都做对应调整。

4. 验证输出结果 #

修改完成后，可以先运行head(ForPrintONLYToday_Active_address_wf)查看数据内容，确认布尔值都已替换成目标文本，再执行导出CSV的代码，就能得到符合要求的报表了。

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