我有这样的数据集：
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与二氧化碳排放的加权平均值进行汇总？
由于