读入 R 包 ggplot2 中的数据集 mpg,对道奇车型中, 对不同气缸数 (cyl) 分别为 4, 5, 6, 8 的车型进行统计,

并使用 ggplot2 绘制以车型的马力 (horsepower) 为 x 轴, 油耗 (mpg) 为 y 轴, 以气缸数 (cyl) 为不同颜色的散点图 (scatter plot)。

可以使用以下 R 代码来完成上述任务：

# 加载 ggplot2 包
library(ggplot2)

# 读入 mpg 数据集
data(mpg)

# 选取道奇车型
dodge <- subset(mpg, manufacturer == "dodge")

# 按照不同气缸数进行分组
dodge_grouped <- split(dodge, dodge$cyl)

# 绘制散点图
ggplot() + 
  geom_point(data = dodge_grouped[[4]], aes(x = horsepower, y = mpg, color = "4")) +
  geom_point(data = dodge_grouped[[5]], aes(x = horsepower, y = mpg, color = "5")) +
  geom_point(data = dodge_grouped[[6]], aes(x = horsepower, y = mpg, color = "6")) +
  geom_point(data = dodge_grouped[[8]], aes(x = horsepower, y = mpg, color = "8")) +
  labs(x = "Horsepower", y = "MPG", color = "Cylinders") +
  scale_color_manual(values = c("4" = "blue", "5" = "red", "6" = "green", "8" = "orange"))

这段代码首先加载了 ggplot2 包，然后读入 mpg 数据集。接着，我们选取了道奇车型并按照不同的气缸数进行分组。最后，我们使用 ggplot2 的绘图函数 geom_point 绘制散点图，并对不同的气缸数进行了颜色编码和标记。完整的代码和图形如下：