with(airquality, plot(Wind, Temp, main = "Wind and Temp in NYC"))

使用这句程序所得结果与上述两句程序结果相同。

在plot函数中将参数type设为”n”，可以设置在图形中数据不显示：

with(airquality, plot(Wind, Temp, 
     main = "Wind and Temp in NYC",
     type = "n"))

可以看出，所得图形只有一个坐标，而没有数据内容。

参数含义

type= “p ”

数以点表示

type= “l “

数据显示以线连接

type= “b “

数据以点和连接线的形式显示

type= “o “

数据以线连接，数据点突出显示

type= “h “

数据以点到x轴的垂直线的形式显示

type= “s “

数据显示为阶梯图

type= “n “

不显示数据

在图中添加以红色圆圈表示的9月份的数据：

with(subset(airquality, Month == 9),
     points(Wind, Temp, col = "red"))

在图中添加以蓝色圆圈表示的5月份的数据，和用黑色圆圈表示的6、7、8月数据：

with(subset(airquality, Month == 5),
     points(Wind, Temp, col = "blue"))
with(subset(airquality, Month %in% c(6,7,8)),
     points(Wind, Temp, col = "black"))

在图中添加回归线（所有数据），并使用legend函数在右上角添加各颜色的说明：

fit lm(Temp ~ Wind, airquality)
abline(fit, lwd=2, col = "green")
legend("topright", pch=1,
       col = c("red", "blue","black"),
       legend = c("sep", "May", "Other"))

可以看出，图中多了一个绿色的回归线和各颜色说明的标签，其中，使用lm函数求得数据的回归线，并赋予对象fit，使用abline函数生成回归线，lwd定义线粗细为2，col定义颜色为绿色，legend函数中参数”topright”表示右上方，pch定义形状，1为圆圈，2为三角，3为十字等，如果不写该参数，则标签中便不会出现形状。

也可以在图中添加各月份的回归线（9月为红色，5月为蓝色，6,7,8月数据综合起来为黑色）：

fit1 lm(Temp ~ Wind, airquality, Month ==9)
abline(fit1, lwd=2, col = "red")
fit2 lm(Temp ~ Wind, airquality, Month ==5)
abline(fit2, lwd=2, col = "blue")
fit3 lm(Temp ~ Wind, airquality, Month %in% c(6,7,8))
abline(fit3, lwd=2, col = "black")

> par("bg")
[1] "white"
> par("col")
[1] "black"
> par("mar") #bottom, left, top, right
[1] 5.1 4.1 4.1 2.1
> par("mfrow")
[1] 1 1
> par("mfcol")

来源【首席数据官】，更多内容/合作请关注「辉声辉语」公众号，送10G营销资料！