在R中加权平均值的aggregate（）

Question

我有这样的数据集：

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

我想获得每个汽车品牌的总nb。所以我这样做了：

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

然后，我想获得每个汽车品牌的平均二氧化碳排放量。

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

最后我合并了x和y

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

所以我得到了这个

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

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

如何将每个汽车品牌的汽车nb与二氧化碳排放的加权平均值进行汇总？

由于