R语言数据可视化-密度图和等高线图

接上一篇文章，所用到的数据均和上一篇文章相同：

本文相当于在散点图的基础上增加一两行代码将散点图变为密度图和等高线图。

密度图

#Z为数据集，A为横坐标，C为纵坐标

#颜色以F为权重，数字越大颜色越深，也可以将B改为red，则所有散点均为红色

#颜色也可以设置为不同类别，可以不用数字填写

#散点大小以B为权重，数字越大，则点越大

#geom_smooth中引号内loess代表局部多项式回归拟合，若替换为lm则为线性拟合

#se代表是否显示置信区间（默认区间0.95），拟合线为黑色

#geom_text增加散点的标签,后面是使标签相对散点向Y轴上移2个单位，若不需要显示标签，删除本行即可

#修改横纵坐标名称

#alpha设置散点透明度(0-1)之间，可删除

#stroke代表散点外线的宽度，可删除

#shape代表散点的形状，20代表圆点，22代表空心正方形等，可删除

#stat_density为密度函数参数设置

#密度图函数：alpha设置填充透明度数据为密度，geom设置绘制栅格图

代码：（红色部分可以自行改动，前一半代码同上一篇文章）

ggplot(Z,aes(x=A,y=C,size=B,colour=F))+

geom_text(aes(label=E,y=C+2))+

labs(x="横坐标名称",y="纵坐标名称")+

geom_point(alpha =0.5,stroke=2,shape=20)+

stat_density2d(aes(alpha = ..density..),geom = "raster", contour = FALSE)

结果：

等高线图：

代码：（红色部分可以自行改动，前一半代码同上一篇文章）

#绘制等高线图

ggplot(Z,aes(x=A,y=C,size=B,colour=F))+

geom_text(aes(label=E,y=C+2))+

labs(x="横坐标名称",y="纵坐标名称")+

geom_point(alpha =0.5,stroke=2,shape=20)+

stat_density2d()

结果：