如何处理含<运算符的生态数据框计算？将LOQ值转为其一半

这是分析化学数据处理里很常见的需求，我来给你两种实用的解决方案，分别基于base R和tidyverse工具包：

方法一：Base R 实现 #

首先我们可以写一个自定义函数来处理单个向量，再批量应用到数据框的每一列：

# 定义处理LOQ的函数
process_loq <- function(x) {
  # 先将输入转为字符型（避免因子格式的问题）
  x <- as.character(x)
  # 识别所有以"<"开头的LOQ条目
  is_loq <- grepl("^<", x)
  # 提取数值部分并转为数值型
  numeric_vals <- as.numeric(sub("^<", "", x))
  # 对LOQ条目执行除以2的操作
  numeric_vals[is_loq] <- numeric_vals[is_loq] / 2
  return(numeric_vals)
}

# 应用函数到数据框的每一列
df_processed <- as.data.frame(lapply(df, process_loq))

# 查看结果
df_processed

运行后你会得到和期望完全一致的结果：

x1 x2 x3
1 1.0  3  1
2 2.0  2  2
3 0.5  3  3

方法二：Tidyverse 实现（更简洁） #

如果你习惯用dplyr和stringr这类工具，代码会更直观：

library(dplyr)
library(stringr)

df_processed <- df %>%
  mutate(across(everything(), ~ {
    # 移除"<"符号并转为数值
    num_val <- str_remove(., "^<") %>% as.numeric()
    # 判断是否为LOQ值，是则除以2，否则保留原数值
    if_else(str_detect(., "^<"), num_val / 2, num_val)
  }))

关键步骤解释 #

• grepl("^<", x) / str_detect(., "^<")：精准识别以"<"开头的LOQ条目
• sub("^<", "", x) / str_remove(., "^<")：移除开头的"<"符号，提取纯数值部分
• 对识别出的LOQ条目执行/2操作，其他数值保持不变

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