R语言匹配共同因子计算两个不同数据框指定列乘积的问题

两种实现方案 #

1. 基础R写法（无额外依赖）

先过滤出Df2中蓝品种的子集，再通过双字段匹配取值计算：

# 提取Df2中Variety为Blue的所有行
df2_blue_sub <- subset(Df2, Variety == "Blue")
# 按Species和Time双字段匹配，计算乘积作为新列
Df_Blue$calc_col <- Df1$mn * df2_blue_sub$Residual_p[
  match(paste(Df1$Species, Df1$Time), paste(df2_blue_sub$Species, df2_blue_sub$Time))
]

2. dplyr写法（可读性更强）

用左连接逻辑实现匹配，代码逻辑更清晰，不易出错：

library(dplyr)

Df_Blue <- Df1[, 1:4] %>%
  # 关联Df1的mn列和筛选后的Df2蓝品种数据
  left_join(select(Df1, Species, Time, mn), by = c("Species", "Time")) %>%
  left_join(filter(Df2, Variety == "Blue") %>% select(Species, Time, Residual_p), 
            by = c("Species", "Time")) %>%
  # 计算目标列
  mutate(calc_col = mn * Residual_p) %>%
  # 保留原始前4列+计算得到的新列
  select(Treatment, Time, Species, Base, calc_col)

两种方案的计算结果完全一致，你的示例数据中所有行都能在Df2的蓝品种子集中找到匹配值，不会产生空值。

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