今天小编来分享一下R语言绘制散点图的代码~
1.小编使用的是R自带的数据集，先调用出数据集；
#调用R自带数据集
library(gcookbook)
head(heightweight)
image.png
2.绘制离散型变量的散点图；
##映射离散型型变量
##基于颜色和点形对数据进行分组可指定colour或者shape两种参数，分别将不同分组以不同颜色/点形表述
# 基函数：colour设置分组
library(ggplot2)
ggplot(heightweight, aes(x = ageYear, y = heightIn, colour = sex)) +
# 散点图函数
geom_point()
image.png
# 基函数：shape设置分组
ggplot(heightweight, aes(x = ageYear, y = heightIn, shape = sex)) +
# 散点图函数
geom_point()
##########################################
image.png
3.如果需要映射除横纵轴以外的连续性变量，可以映射到散点图的色深和点大小上；
##映射连续型变量
# 上一个示例中，映射到分组的变量是离散型变量。而对于除了横轴纵轴之外的连续型变量，也可以映射到散点图的色深和点大小上
# 基函数：colour绑定连续变量
ggplot(heightweight, aes(x = ageYear, y = heightIn, colour = weightLb)) +
# 散点图函数
geom_point()
image.png
# 基函数：size绑定连续变量
ggplot(heightweight, aes(x = ageYear, y = heightIn, size = weightLb)) +
# 散点图函数
geom_point()
image.png
4.处理散点重叠问题，调用size、colour分别绑定连续变量；
##处理散点重叠
# 基函数：size、colour分别绑定连续变量
ggplot(heightweight, aes(x = ageYear, y = heightIn, size = weightLb, colour = sex)) +
# 散点图函数：alpha设置散点透明度
geom_point(alpha = .5) +
# 使散点的面积正比与变量值
scale_size_area() +
# 标尺函数：palette设置配色方案
scale_colour_brewer(palette = "Set1")
image.png
5.添加回归模型拟合线（此处绘制的是局部线性回归模型）；
##添加回归模型拟合线
# 基函数：sex绑定离散变量
ggplot(heightweight, aes(x = ageYear, y = heightIn, colour = sex)) +
# 散点图
geom_point() +
# 标尺函数：palette设置配色方案
scale_colour_brewer(palette = "Set1") +
# 拟合回归线段以及置信域(默认0.95/通过level参数可自定义)
geom_smooth()
image.png
6.若想拟合经典线性回归模型，可往geom_smooth()函数中加入"method = lm"；
#线段为曲线是因为参与拟合模型为局部线性回归模型。往geom_smooth()函数中加入"method = lm"即可拟合经典线性回归。结果如下图：
ggplot(heightweight, aes(x = ageYear, y = heightIn, colour = sex)) +
# 散点图
geom_point() +
# 标尺函数：palette设置配色方案
scale_colour_brewer(palette = "Set1") +
# 拟合回归线段以及置信域(默认0.95/通过level参数可自定义)
geom_smooth(method = lm)
image.png
7.添加边际地毯；
##向散点图添加边际地毯
# 基函数
library(gcookbook)
head(faithful)
ggplot(faithful, aes(x = eruptions, y = waiting)) +
# 散点图函数
geom_point() +
# 边际地毯函数
geom_rug()
image.png
image.png
8.添加标签（小编这里随意添加了一个标签，仅作展示用）；
##向散点图添加标签
# 基函数
library(gcookbook)
head(heightweight)
ggplot(heightweight, aes(x = ageYear, y = heightIn)) +
# 散点图函数
geom_point() +
# 文本函数：aes参数中：y将原有纵轴值向上偏移，label设置绑定文本
# 将y轴偏移的目的是为了让文本展示在样本点上方而不是中间
geom_text(aes(y = heightIn + .2, label = sex))
image.png