读入 R 包 ggplot2 中的数据集 mpg，分别比较 1999 与 2008 年中各类型 (class) 车的占比, 并统计 1999 年 与 2008 年排量在 2 到 4 L 中各车型 (class) 的数量.

好的，您可以使用以下代码来完成这个任务：

library(ggplot2)

# 读入 mpg 数据集
data(mpg)

# 分别比较 1999 与 2008 年中各类型 (class) 车的占比
mpg_class_prop <- mpg %>%
  group_by(year, class) %>%
  summarise(n = n()) %>%
  mutate(prop = n / sum(n))

ggplot(mpg_class_prop, aes(x = year, y = prop, fill = class)) +
  geom_col(position = "dodge") +
  scale_fill_brewer() +
  labs(title = "各类型车在 1999 年和 2008 年的占比",
       x = "年份",
       y = "占比")

# 统计 1999 年与 2008 年排量在 2 到 4 L 中各车型 (class) 的数量
mpg_2to4L_count <- mpg %>%
  filter(year %in% c(1999, 2008)) %>%
  filter(between(displ, 2, 4)) %>%
  group_by(year, class) %>%
  summarise(count = n())

ggplot(mpg_2to4L_count, aes(x = class, y = count, fill = as.character(year))) +
  geom_col(position = "dodge") +
  scale_fill_brewer() +
  labs(title = "1999 年和 2008 年排量在 2 到 4 L 中各车型数量",
       x = "车型",
       y = "数量")

请注意，这个结果只是一个参考。如果您有任何其他需求，请随时告诉我。