在Rmd中仅当数据存在时对Expense列执行parse_number处理

数据老陈

2026-7-21

解决方案

方法1：管道内判断表行数，针对性处理

在管道中通过nrow()判断是否为空表，空表时直接将Expense列设为数值型空向量，非空表时正常解析：

dat <- read_csv("/PATH/data.csv") %>%
  {
    if (nrow(.) == 0) {
      mutate(., Expense = numeric(0))
    } else {
      mutate(., across(c(`Expense`), parse_number))
    }
  }

这种方式既保证空表时Expense列是数值类型（避免下游计算报错），又不会自动添加无效行。

方法2：自定义安全解析函数

写一个封装了判断逻辑的解析函数，直接在across中调用：

# 定义安全解析函数
safe_parse_number <- function(x) {
  # 当列内全为空/NA时返回数值型空向量，否则正常解析
  if (length(x) == 0 || all(is.na(x) | x == "")) {
    numeric(0)
  } else {
    parse_number(x)
  }
}

# 读取并处理数据
dat <- read_csv("/PATH/data.csv") %>%
  mutate(across(c(`Expense`), safe_parse_number))

这个函数会自动识别空列或无有效数据的情况，返回符合要求的数值类型，适配空表和非空表两种场景。