带R的data.frame中的加权价格

我有一个每周的产品价格数据集。这种产品有很多种，每种都有自己的价格。我感兴趣的是根据每个产品的销售量计算加权价格

我试图做一个循环，但没有工作

有人能帮我吗

下面是我的数据集的一个简单示例：

任何

---

我们可以使用

dplyr

library(dplyr)
df1 %>%
   group_by(week, variety) %>% 
   summarise(wprice = weighted.mean(price, volume))
#   week    variety    wprice
#  <int>      <chr>     <dbl>
#1    10 Paisana(o)  808.1598
#2    10   Semiduro  673.5663
#3    11 Paisana(o) 1452.2574
#4    11   Semiduro 1048.4625
#5    12   Semiduro  972.9976

库（dplyr）
df1%>%
按（周、品种）分组%>%
汇总（单价=加权平均值（价格、数量））
#小杂粮
#             
#110Paisana（o）808.1598
#2 10塞米杜罗673.5663
#3 11 Paisana（o）1452.2574
#4 11塞米杜罗1048.4625
#5 12塞米杜罗972.9976

library(dplyr)
df1 %>%
   group_by(week, variety) %>% 
   summarise(wprice = weighted.mean(price, volume))
#   week    variety    wprice
#  <int>      <chr>     <dbl>
#1    10 Paisana(o)  808.1598
#2    10   Semiduro  673.5663
#3    11 Paisana(o) 1452.2574
#4    11   Semiduro 1048.4625
#5    12   Semiduro  972.9976