技术问询：在R语言中修正CSV文件右侧负号至左侧的方法

嘿Dennis，这个问题我之前也碰到过好几次，用R处理起来其实很顺手，给你两种常用的解决方案，你可以根据自己的习惯选：

方法一：用Base R原生函数处理 #

如果习惯用基础R，不需要额外装包，步骤很清晰：

• 首先读取CSV文件，注意要把可能包含异常负号的列以字符型读入（避免直接转数值时变成NA）：

df <- read.csv("你的文件路径.csv", stringsAsFactors = FALSE)

• 然后针对目标列（假设列名叫target_col）做处理：

# 识别结尾带负号的字符串，把负号移到开头
df$target_col <- ifelse(
  grepl("-$$", df$target_col),  # 用正则匹配以负号结尾的内容
  paste0("-", sub("-$$", "", df$target_col)),  # 去掉结尾负号，再在前面加负号
  df$target_col  # 正常的正负数值保持原样
)
# 最后把列转成数值型
df$target_col <- as.numeric(df$target_col)

方法二：用tidyverse工具链更简洁处理 #

如果你平时用dplyr和stringr这类工具，代码会更直观，适合批量处理：
先加载包（没装的话先跑install.packages("tidyverse")）：

library(tidyverse)

然后读取并处理：

df <- read_csv("你的文件路径.csv") %>%
  # 处理目标列，这里以`target_col`为例
  mutate(target_col = case_when(
    str_detect(target_col, "-$$") ~ str_c("-", str_remove(target_col, "-$$")),
    TRUE ~ target_col
  )) %>%
  # 转成数值型
  mutate(target_col = as.numeric(target_col))

额外小技巧：批量处理多列 #

如果CSV里有好几列都存在这种右侧负号的情况，可以用across批量处理所有符合条件的字符列：

df <- df %>%
  mutate(
    across(
      where(is.character),  # 选中所有字符型列
      ~ case_when(
        str_detect(., "-$$") ~ str_c("-", str_remove(., "-$$")),
        TRUE ~ .
      )
    )
  ) %>%
  # 把能转成数值的字符列转成数值型
  mutate(
    across(
      where(~ all(str_detect(., "^-?\\d+\\.?\\d*$"))),
      as.numeric
    )
  )

注意哦：读取文件的时候，一定要先让异常值以字符型保留，别直接转数值，不然那些56.17-会被识别成NA，后续就没法处理啦～

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