基于R语言dplyr包实现跨组均值计算（排除自身组）的技术问询

嘿，我来帮你搞定这个跨组均值计算的需求！你想要的是对每一行计算排除当前观测所属组之外的所有值的均值，对吧？结合你给出的dplyr示例数据，我给你两种常见场景的解决方案，你可以根据实际需求来选：

场景1：排除当前country组，计算全局其他组的均值 #

这种场景下，France的每一行都会计算所有USA数据的平均值，USA的每一行则计算所有France数据的平均值，不受年份限制。

首先补全你示例里的USA数据（你可以把示例值替换成实际数据）：

library(dplyr)

df <- tribble(
  ~year, ~country, ~value,
  2001, "France", 150,
  2002, "France", 53,
  2003, "France", 31,
  2004, "France", 10,
  2005, "France", 30,
  2006, "France", 37,
  2007, "France", 54,
  2008, "France", 58,
  2009, "France", 50,
  2010, "France", 40,
  2011, "France", 49,
  2001, "USA", 55,
  2002, "USA", 53,
  2003, "USA", 64,
  2004, "USA", 70,
  2005, "USA", 80,
  2006, "USA", 160,
  2007, "USA", 75,
  2008, "USA", 82,
  2009, "USA", 68,
  2010, "USA", 72,
  2011, "USA", 85
)

然后计算排除当前组的均值：

df <- df %>%
  mutate(
    # 计算全局总和和总数量
    total_sum = sum(value),
    total_n = n(),
    # 计算当前country组的总和和数量
    group_sum = sum(value, by = country),
    group_n = n(),
    # 推导排除当前组后的均值
    mean_exclude_group = (total_sum - group_sum) / (total_n - group_n)
  ) %>%
  # 移除中间辅助列（可选，如果你不需要的话）
  select(-total_sum, -total_n, -group_sum, -group_n)

# 查看结果
head(df)

这个方法效率很高，不需要逐行循环，通过全局和组级的统计值直接推导结果，适合数据量较大的情况。

场景2：按year分组，计算同一年份内其他国家的均值 #

如果你的需求是在同一年份里，排除当前行所属的国家，计算该年份其他国家的均值（比如2001年France的行只计算2001年USA的value），可以用下面的高效写法：

df <- df %>%
  group_by(year) %>%
  mutate(
    # 同一年份的总和减去当前国家的总和，除以对应的数量差
    mean_exclude_country_year = (sum(value) - sum(value[country == .env$country])) / 
                                (n() - sum(country == .env$country))
  ) %>%
  ungroup()

这种写法不需要逐行遍历，利用分组统计直接计算，处理大规模数据时性能更好。

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