如何根据Matrix与Analyte匹配为R结果表添加对应限值列

针对你合并两表后需要按Matrix列筛选显示对应限值的需求，以下两种方法可以实现：

方法一：使用dplyr包的条件赋值 #

适合习惯tidyverse语法的场景，代码可读性强：

library(dplyr)

# 假设合并后的数据集名为merged_df
merged_df <- merged_df %>%
  mutate(
    # 仅Matrix为Fish时保留Fish_Limit，其余设为NA
    Fish_Limit = case_when(
      Matrix == "Fish" ~ Fish_Limit,
      TRUE ~ NA_real_
    ),
    # 仅Matrix为Floc时保留Floc_PEC，其余设为NA
    Floc_PEC = case_when(
      Matrix == "Floc" ~ Floc_PEC,
      TRUE ~ NA_real_
    ),
    # 仅Matrix为Floc时保留Floc_TEC，其余设为NA
    Floc_TEC = case_when(
      Matrix == "Floc" ~ Floc_TEC,
      TRUE ~ NA_real_
    )
  )

• 若限值列是字符型，将NA_real_替换为NA_character_即可。

方法二：基础R的索引赋值 #

无需额外加载包，操作更直接：

# 假设合并后的数据集名为merged_df
# 处理Fish_Limit列
merged_df$Fish_Limit[merged_df$Matrix != "Fish"] <- NA

# 处理Floc_PEC列
merged_df$Floc_PEC[merged_df$Matrix != "Floc"] <- NA

# 处理Floc_TEC列
merged_df$Floc_TEC[merged_df$Matrix != "Floc"] <- NA

• 如果限值列是因子类型，建议先通过as.character()转换为字符型后再赋值NA，避免因子水平异常。

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