R中加权平均值的聚合（）

我有这样一个数据集：

data.frame(car brand, car model, car sold, co2 emission)

我想得到每个汽车品牌的总销量。所以我这样做了：

x <- aggregate(carsold ~ carbrand, data=data.frame, FUN=sum)

问题：在数据集中，每种商品的汽车销售量可能不同。所以有时候，对于一款车型，我有3辆车在销售时排放一定的二氧化碳，有时候是1辆

如何将每个汽车品牌的汽车销售nb与二氧化碳排放的加权平均值相加

---

谢谢

检查

？加权。平均值

。这没有任何意义。权重应该应用在哪里？你不会再将汽车型号CO2平均值除以售出的汽车数量。分工已经完成了。邦德德斯特：我知道我错了。但是，有没有一种方法可以计算每个汽车品牌（汽车品牌级别，而非车型）的汽车销量的二氧化碳排放加权平均值？每个品牌的（nb_已售出*平均_二氧化碳排放）值应该能满足您的需求。

y <- aggregate(co2emission ~ carbrand, data=data.frame, FUN=mean)

z <- merge(x, y, by="carbrand")

data.frame(car brand, nb sold, average co2 emission)