我有一个这样的数据集：
data.frame(car brand, car model, car sold, co2 emission)
我想得到每个汽车品牌的总销量。所以我这样做了：
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)
问题：在数据集中，每个项目的售出汽车的 nb 可能不同。所以有时，对于一个模型，我出售了 3 辆具有一定二氧化碳排放量的汽车，有时是 1 辆。
如何将每个汽车品牌的汽车销量 nb 与二氧化碳排放量的加权平均值相加？
谢谢