R数据框如何批量替换指定列字符并将价格列转换为数值型

你可以通过以下两种常用方案实现多列批量处理，无需逐列编写转换逻辑：

方案1：基础R单行实现 #

先定义需要处理的价格列列表，再通过lapply批量执行转换：

# 定义待处理的价格列
price_cols <- c("Sold.Price", "Price", "MaintFee")
# 单行完成所有目标列的清洗转换
combined_csv[price_cols] <- lapply(combined_csv[price_cols], function(x) as.numeric(gsub("[$,]", "", x)))

方案2：dplyr 实现（适合tidyverse用户） #

如果你习惯使用tidyverse生态，可以用across函数实现更简洁的批量处理：

手动指定目标列 #

library(dplyr)
combined_csv <- combined_csv %>%
  mutate(across(c(Sold.Price, Price, MaintFee), ~as.numeric(gsub("[$,]", "", .x))))

自动识别所有带$的字符列处理 #

如果不想手动指定列名，可以自动筛选所有包含$符号的字符列统一处理：

combined_csv <- combined_csv %>%
  mutate(across(where(~is.character(.) && any(grepl("\\$", .))), ~as.numeric(gsub("[$,]", "", .x))))

注意事项 #

• 正则表达式[$,]可以一次性匹配所有$符号和千位分隔符逗号，无需多次调用gsub，执行效率更高
• 示例数据中第一行的Sold.Price空字符串转换后会自动变为NA，符合R的缺失值处理规范，如果你需要将空值替换为0，可在as.numeric后补充%>% replace(is.na(.), 0)逻辑

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