利用R语言绘制散点图

绘制散点图

本文利用R语言内置数据集mtcars绘制不同类型的散点图，并提供了详细的代码。这些可视化结果帮助我们直观理解汽车各项性能指标之间的关系，为汽车设计和选购提供数据支持。

欢迎大家在评论区留言或私信，交流学习心得或学习R的过程中遇到的问题。感谢大家的支持和关注，您的支持是我创作的最大动力。

1.mtcars数据集介绍

mtcars（Motor Trend Car Road Tests）是R语言中最经典的内置数据集之一，包含了32辆汽车在1974年左右的性能测试数据。这个数据集源自1974年的《Motor Trend》杂志，常用于统计教学和数据分析演示。
mtcars数据集包含11个数值变量：

主要性能指标：
mpg: Miles/(US) gallon - 油耗（英里/加仑）
cyl: Number of cylinders - 气缸数
disp: Displacement (cu.in.) - 排量（立方英寸）
hp: Gross horsepower - 马力

传动系统：
drat: Rear axle ratio - 后轴比率
wt: Weight (1000 lbs) - 重量（千磅）
qsec: 1/4 mile time - 1/4英里加速时间

发动机和变速箱：
vs: Engine (0 = V-shaped, 1 = straight) - 发动机类型
am: Transmission (0 = automatic, 1 = manual) - 变速箱类型
gear: Number of forward gears - 前进档位数
carb: Number of carburetors - 化油器数量

#加载并查看数据
data("mtcars")
head(mtcars)

返回结果如下：

2.绘制重量与油耗的散点图

# 设置图形参数
par(mar = c(5, 5, 4, 2) + 0.1)  # 调整边距

# 基本散点图
plot(mtcars$wt, mtcars$mpg,
     main = "汽车重量与油耗关系",
     xlab = "重量 (千磅)",
     ylab = "油耗 (英里/加仑)",
     pch = 16,           # 实心圆点
     col = "blue",       # 点的颜色
     cex = 1.2,          # 点的大小
     cex.main = 1.5,     # 标题大小
     cex.lab = 1.2,      # 坐标轴标签大小
     font.main = 2,      # 粗体标题
     grid()              # 添加网格线
)

# 添加回归线
abline(lm(mpg ~ wt, data = mtcars), 
       col = "red", 
       lwd = 2, 
       lty = 1)

# 添加图例
legend("topright", 
       legend = "线性回归线",
       col = "red",
       lwd = 2,
       lty = 1,
       bty = "n")

出图效果如下：

3.按气缸数分组绘制散点图

# 按气缸数设置颜色和形状
cyl_colors <