在R中使用vroom读取会计格式CSV时的数值转换问题

针对会计数据里的括号负数（如(1,234)）和千分位逗号问题，不用手动逐文件处理，直接用vroom的自定义列解析能力就能搞定，两种实用方法如下：

方法一：自定义完整解析函数 #

先写一个同时处理括号负数和千分位的解析函数，再通过col_transform指定给目标列：

library(vroom)
library(readr)

# 自定义会计数值解析函数
parse_accounting <- function(x) {
  # 将括号包裹的数值转为负数格式
  x <- gsub("^\\((.*)\\)$", "-\\1", x)
  # 用parse_number自动处理千分位逗号并转为数值
  parse_number(x)
}

# 读取并合并多文件，指定列类型
combined_data <- vroom(c("file1.csv", "file2.csv"),
                       col_types = cols(
                         # 对需要处理的会计列应用自定义解析
                         营业收入 = col_character() %>% col_transform(parse_accounting),
                         营业成本 = col_character() %>% col_transform(parse_accounting),
                         # 其他列按实际类型指定
                         日期 = col_date(format = "%Y-%m-%d"),
                         部门 = col_factor()
                       ))

方法二：链式处理简化写法 #

如果不想单独定义函数，可以直接在col_types里链式完成替换和解析：

combined_data <- vroom(c("file1.csv", "file2.csv"),
                       col_types = cols(
                         金额列 = col_character() %>% 
                           # 先替换括号负数
                           col_transform(x = gsub("^\\((.*)\\)$", "-\\1", x)) %>% 
                           # 再用col_number处理千分位
                           col_number()
                       ))

两种方法都能保留vroom的高速读取优势，一次性完成多文件合并和数值格式修正，不用再逐个文件手动处理。

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