点图

在水平轴上绘制大量有标签的数值的方法。也就是你想比较大量不同类别下数据值的差异时，可以使用点图，使用条形图等其他图形视觉效果较差。

• 绘图格式为：

• dotchart(x, lables = )

• 其中x是一个数值向量，lables为每个数值向量所对应的标签

#查看数据
head(mtcars)

头几行数据

dotchart(mtcars$mpg,labels=rownames(mtcars),main="简单点图",xlab="每加仑汽油行驶里程数")

简单点图

#将数据集按照每加仑汽油行驶里程数MPG从小到大排序
mtcars=mtcars[order(mtcars$mpg),]
#为不同发动机的缸数设置不同的颜色
mtcars$color[mtcars$cyl==4]="red"
mtcars$color[mtcars$cyl==6]="green"
mtcars$color[mtcars$cyl==8]="blue"
#绘图
dotchart(mtcars$mpg,labels=rownames(mtcars),groups=mtcars$cyl,color=mtcars$color,main="根据发动机缸数分组的排序点图",xlab="每加仑汽油行驶里程数")

根据发动机缸数分组的排序点图

从图中我们很容易看出不同发动机缸数，以及相同发动机缸数下不同车型的每加仑汽油行驶的里程数。

简单散点图

• abline(lm( ))，用来添加最佳拟合的线性直线

• lines(lowess())，用来添加平滑的拟合曲线，非参数的估计方法

• lwd=，用来设置线的宽度

• lty=，用来设置线的类型，实线,虚线等等

plot(mtcars$wt,mtcars$mpg,main="简单散点图",xlab="车重",ylab="每加仑汽油行使里程数")
abline(lm(mtcars$mpg~mtcars$wt),col="red",lwd=2,lty=1)
lines(lowess(mtcars$wt,mtcars$mpg),col="blue",lwd=2,lty=2)

简单散点图

car包中的scatterplot( )函数加强了散点图绘制的功能

• mpg~wt|cyl，绘制不同缸数下车重和MPG的散点图

• legend.plot=TRU，设置显示图例

• id.method="identify"，设置可以通过可交互的方式查看各个数据点的标签

• labels=，设置数据点的标签

• boxplot="xy"，表示在X轴和Y轴上绘制变量的箱线图

library(car)
#加载需要的包
scatterplot(mpg~wt|cyl,data=mtcars,main="不同发动机缸数下车重和MPG的关系",xlab="车重",ylab="每加仑汽油行驶里程数",legend.plot=TRUE,id.method="identify",labels=rownames(mtcars),boxplot="xy")

不同发动机缸数下车重和MPG的关系