R语言中替换数据框成本列文本条目为指定数值的方法

基础R实现（无需额外包） #

先定义需要处理的成本列，再循环遍历每一列完成替换逻辑：

# 定义目标列
cost_cols <- c("Cost1", "Cost2", "Cost3")

# 循环处理每一列
for (col in cost_cols) {
  current_col <- Data1[[col]]
  # 逻辑：空字符串保留；无法转为数值的文本替换为0.0234；数值型字符串转为数值保留
  current_col <- ifelse(
    current_col == "", "",
    ifelse(is.na(as.numeric(current_col)), 0.0234, as.numeric(current_col))
  )
  Data1[[col]] <- current_col
}

# 查看处理后结果
print(Data1)

dplyr实现（更简洁的批量处理） #

如果习惯用tidyverse工具链，用dplyr的across函数可以高效批量处理多列：

library(dplyr)

Data1_cleaned <- Data1 %>%
  mutate(across(
    c(Cost1, Cost2, Cost3),
    ~ case_when(
      .x == "" ~ "",  # 保留原空值
      is.na(as.numeric(.x)) ~ 0.0234,  # 非数值文本替换为指定值
      TRUE ~ as.numeric(.x)  # 可转为数值的内容保留为数值型
    )
  ))

# 查看处理后结果
print(Data1_cleaned)

说明 #

• 两种方法都会保留原数据中的空字符串""不变
• 所有无法转换为数值的文本（如"not available"、"Missing"）都会被替换为0.0234
• 原本的数值（包括以字符串形式存储的数值，如"98"）会被转换为数值型保留

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