嘿，我来帮你搞定这个问题！你在Excel里能轻松完成的加权平均计算，用R的dplyr包也能顺畅实现，还能灵活处理多分组的场景。我一步步给你讲清楚：

1. 先准备好工具和示例数据 #

首先，我们需要加载dplyr包——这是处理数据分组最常用的工具，如果你还没安装，先运行install.packages("dplyr")安装，然后加载：

library(dplyr)

假设你的数据有三列：产品名称（Product）、要计算加权平均的数值（比如价格Price）、数量（Quantity），我先构造一份示例数据，你可以直接复制测试：

sales_data <- tibble(
  Product = c("A", "A", "B", "B", "B", "C"),
  Price = c(10, 12, 20, 25, 22, 30),
  Quantity = c(5, 3, 2, 4, 1, 6)
)

2. 核心：按产品分组计算加权平均 #

加权平均的公式是：(数值×数量)的总和 ÷ 数量的总和，我们用group_by()分组，再用summarise()计算结果：

# 按产品分组计算加权平均价格
weighted_avg_result <- sales_data %>%
  group_by(Product) %>%  # 按Product列分组
  summarise(
    Weighted_Average_Price = sum(Price * Quantity) / sum(Quantity),
    Total_Quantity = sum(Quantity)  # 可选，顺便算出每组的总数量
  )

# 查看结果
weighted_avg_result

运行后你会得到每个产品的加权平均价格，比如产品A的加权平均是(10×5 + 12×3)/(5+3) = 10.75，和Excel算的结果一致。

3. 添加第二个分组变量的方法 #

如果你需要同时按两个变量（比如产品+类别）分组，只需要在group_by()里添加第二个变量就行。比如我们给数据加一个Category列：

sales_data_with_cat <- tibble(
  Product = c("A", "A", "B", "B", "B", "C"),
  Category = c("Electronics", "Electronics", "Clothing", "Clothing", "Clothing", "Home"),
  Price = c(10, 12, 20, 25, 22, 30),
  Quantity = c(5, 3, 2, 4, 1, 6)
)

# 按Product和Category双重分组计算
weighted_avg_with_cat <- sales_data_with_cat %>%
  group_by(Product, Category) %>%
  summarise(
    Weighted_Average_Price = sum(Price * Quantity) / sum(Quantity),
    Total_Quantity = sum(Quantity)
  )

这样就能得到每个类别下对应产品的加权平均值了。

4. 解决group_by不工作的常见问题 #

你说group_by()没正常工作，大概率是这几个原因：

• 没加载dplyr包：base R里没有group_by()函数，一定要先运行library(dplyr)；
• 分组变量有异常：比如Product列里有空格（比如" A"和"A"）、大小写不一致（"a"和"A"），可以用trimws(Product)去掉空格，或者tolower(Product)统一大小写后再分组；
• 语法错误：单独运行group_by()不会有结果，必须和summarise()或者其他操作（比如mutate()）结合，用管道符%>%串联起来才会生效。

5. 用base R实现的备选方案（可选） #

如果你不想用dplyr，也可以用base R的aggregate()函数实现，不过代码会稍微繁琐一点：

weighted_avg_base <- aggregate(
  Price ~ Product, 
  data = sales_data,
  FUN = function(x) {
    # 匹配当前分组的Quantity
    qty <- sales_data$Quantity[sales_data$Product == unique(sales_data$Product)]
    sum(x * qty) / sum(qty)
  }
)

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