在R中转换带符号检出限/线性限为固定小数数值的方法

需求说明 #

给定包含字符型列before的数据框dat0，需完成以下批量处理：

• 将纯格式如<0.5、<50的检出限转换为对应数值减0.0001并保留四位小数（例如<0.5→0.4999，<50→49.9999）
• 将纯格式如>15.0、>500的线性限转换为对应数值加0.0001并保留四位小数（例如>15.0→15.0001，>500→500.0001）
• 保留带文本的内容（如Value > limit、Result < cutoff）完全不变，无需逐个指定具体限值。

方案一：tidyverse风格（dplyr + stringr） #

library(dplyr)
library(stringr)

dat_processed <- dat0 %>%
  mutate(after = case_when(
    # 匹配纯"<数值"格式并处理
    str_detect(before, "^<\\d+(\\.\\d+)?$") ~ {
      num <- as.numeric(str_remove(before, "^<"))
      sprintf("%.4f", num - 0.0001)
    },
    # 匹配纯">数值"格式并处理
    str_detect(before, "^>\\d+(\\.\\d+)?$") ~ {
      num <- as.numeric(str_remove(before, "^>"))
      sprintf("%.4f", num + 0.0001)
    },
    # 其他内容原样保留
    TRUE ~ before
  ))

关键细节： #

• 正则表达式^<\\d+(\\.\\d+)?$精准匹配仅由<+整数/小数组成的字符串，避免误匹配带文本的条目；^>\\d+(\\.\\d+)?$同理匹配纯>数值格式。
• sprintf("%.4f", ...)强制输出四位小数，保证格式统一，即使原数值是整数（如<50转为49.9999）。

方案二：基础R简洁版（gsubfn） #

library(gsubfn)

# 先处理"<数值"，再处理">数值"
dat0$after <- gsubfn("^<(\\d+(\\.\\d+)?)", 
                     function(x) sprintf("%.4f", as.numeric(x) - 0.0001), 
                     dat0$before)
dat0$after <- gsubfn("^>(\\d+(\\.\\d+)?)", 
                     function(x) sprintf("%.4f", as.numeric(x) + 0.0001), 
                     dat0$after)

关键细节： #

• gsubfn允许对正则捕获的内容直接执行计算逻辑，比嵌套gsub更高效。
• 两次调用依次处理两种格式，不会互相干扰，非目标格式的内容完全保留。

两种方案均可直接应用于数千行的大规模数据，处理结果与示例中的after列完全一致。

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