开始学习
< 返回

R 语言 – 绘制散点图

散点图

我们在《R 语言 – 绘图》中了解到,plot() 函数可用来绘制数字之间的对比图。

散点图(scatter plot)是一种用于显示两个数值变量之间关系的图,并为每个观察绘制一个点。

它需要两个相同长度的向量,一个用于 x 轴(水平),一个用于 y 轴(垂直)。

示例1:

x <- c(5,7,8,7,2,2,9,4,11,12,9,6)
y <- c(99,86,87,88,111,103,87,94,78,77,85,86)

plot(x, y)

绘制结果:

上述散点图其实显示的是 12 辆汽车经过的结果。对于第一次看到图表的人来说,这可能不太清楚,所以让我们添加一个标题和不同的标签来更好地描述散点图。

x <- c(5,7,8,7,2,2,9,4,11,12,9,6)
y <- c(99,86,87,88,111,103,87,94,78,77,85,86)

plot(x, y, main="Observation of Cars", xlab="Car age", ylab="Car speed")

绘制结果:

其中,x 轴 显示汽车的年龄,y 轴 显示汽车通过时的速度。

现在,你能否观察结果之间有什么关系吗?

是的,好像越新的车开的越快,不过也有可能是巧合,毕竟我们只记录了 12 辆车。

比较图

在上面的示例中,汽车速度和年龄之间似乎存在关系,但如果我们也绘制另一天的观察结果呢? 散点图会告诉我们其他信息吗?

要将绘图与另一个绘图进行比较,请使用 points() 函数。

示例:在同一个画布上绘制两个图

# day one, the age and speed of 12 cars:
x1 <- c(5,7,8,7,2,2,9,4,11,12,9,6)
y1 <- c(99,86,87,88,111,103,87,94,78,77,85,86)

# day two, the age and speed of 15 cars:
x2 <- c(2,2,8,1,15,8,12,9,7,3,11,4,7,14,12)
y2 <- c(100,105,84,105,90,99,90,95,94,100,79,112,91,80,85)

plot(x1, y1, main="Observation of Cars", xlab="Car age", ylab="Car speed", col="red", cex=2)
points(x2, y2, col="blue", cex=2)

绘制结果:

注意:为了能够看到比较的差异,我们这里为绘图分配了不同的颜色(通过使用 col 参数)。红色代表第 1 天的值,而蓝色代表第 2 天的值。请注意,我们还添加了 cex 参数以增加点的大小。

观察结论:通过比较这两个图,我认为可以肯定地说它们都给了我们相同的结论 —— 汽车越新,开得越快。

文章目录