R中聚合数据的基本统计信息

我现在正跳入R，所以我可能没有使用正确的术语，请容忍我

我有一个表格，显示了具有特定发动机尺寸的汽车数量：

Engine    Count
---------------
1800       20
1900       80
2000       40

所以基本上我有140辆车（观察）。当我调用

summary（cars）

时，我会得到每列的单独统计数据，但是考虑到计数中的比例，我如何才能得到引擎大小的中位数和平均值

谢谢。

汽车
汽车
cars <- data.frame(Engine=c(1800, 1900, 2000),
                  Count=c(20, 80, 40))
cars
# Engine Count
# 1   1800    20
# 2   1900    80
# 3   2000    40
mean(rep(cars$Engine, cars$Count))
# [1] 1914.286
weighted.mean(x=cars$Engine, w=cars$Count)
# [1] 1914.286
median(rep(cars$Engine, cars$Count))
# [1] 1900