在R中根据factor列status水平对数值列respiration_net做条件除法

下面提供几种在R中实现需求的实用方法，针对你的分组数据框（grouped_df）均可直接使用：

方法一：用dplyr的case_when（可读性优先） #

借助dplyr的条件匹配函数，清晰定义不同因子水平的处理逻辑：

library(dplyr)

# 生成调整后的新列，也可直接替换原列respiration_net
df <- df %>%
  mutate(
    respiration_adjusted = case_when(
      status == "healthy" ~ respiration_net / 100,
      status == "rotten" ~ respiration_net / 50,
      TRUE ~ respiration_net  # 对control水平保持原值，可按需修改
    )
  )

方法二：base R原生ifelse（无需额外包） #

如果不想加载第三方包，用嵌套ifelse实现：

# 添加调整后的列
df$respiration_adjusted <- ifelse(
  df$status == "healthy",
  df$respiration_net / 100,
  ifelse(
    df$status == "rotten",
    df$respiration_net / 50,
    df$respiration_net  # 处理control水平
  )
)

方法三：因子-除数映射法（简洁高效） #

通过定义因子水平与除数的对应关系，直接批量匹配计算：

# 定义各因子水平对应的除数
divisor_map <- c(healthy = 100, rotten = 50, control = 1)

# 按因子水平匹配除数并执行除法
df$respiration_adjusted <- df$respiration_net / divisor_map[df$status]

以上方法均能实现根据status的不同水平，对respiration_net执行对应的除法操作，可根据个人习惯和场景选择。

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