前面给大家介绍
今天小编给大家介绍第二种方法，绘制散点图，并且在散点图上添加直方图和密度曲线。我们还是使用?【R绘图】散点图+直方图（密度图）里面使用的数据。这次我们使用的R包叫ggExtra
#安装相应的R包
BiocManager::install("ggExtra")
BiocManager::install("ggplot2")
#加载相关的包
library(ggplot2)
library(ggExtra)
#加载数据
load("data.RData")
#绘图
p <- ggplot(sat.act, aes(SATV, SATQ)) + #横轴是SATV，纵轴是SATQ
geom_point(aes(colour=factor(gender))) + #添加点，按照性别使用不同的颜色
stat_smooth(method=lm)+ #添加拟合直线
labs(x = "SATV", y = "SATQ") + #设置x轴和y轴名称
theme_bw()+ #黑白背景
theme(legend.position="none") #删除图注
p
我们可以得到下面这张散点图
接下来我们在这张图的基础上本别来添加直方图或者密度曲线
1. 添加密度曲线
#在散点图上添加密度曲线
ggExtra::ggMarginal(p, type = "density", #指定添加类型
xparams=list(fill = "green"), #指定颜色
yparams = list(fill="orange"), #指定颜色
)
2.添加直方图
#在散点图上添加histogram
ggExtra::ggMarginal(p, type = "histogram", #指定添加类型
xparams=list(fill = "green"), #指定颜色
yparams = list(fill="orange"), #指定颜色
)
3.添加直方图+密度曲线
#在散点图上添加密度曲线+在散点图上添加histogram
ggExtra::ggMarginal(p, type = "densigram",
xparams=list(fill = "green"),
yparams = list(fill="orange"),
)
4.添加箱型图
#在散点图上添加箱型图
ggExtra::ggMarginal(p, type = "boxplot",
xparams=list(fill = "green"),
yparams = list(fill="orange")
)
5.添加小提琴图
#在散点图上添加小提琴图
ggExtra::ggMarginal(p, type = "violin",
xparams=list(fill = "green"),
yparams = list(fill="orange"),
)
6. 根据性别分组添加两组直方图
#根据性别分组添加histogram
ggExtra::ggMarginal(p, type = "histogram",
xparams=list(fill = "green"),
yparams = list(fill="orange"),
groupFill=T #根据性别进行填充颜色
)
7. 根据性别分组添加密度曲线
#根据性别分组添加密度曲线
ggExtra::ggMarginal(p, type = "density",
xparams=list(fill = "green"),
yparams = list(fill="orange"),
groupColour = T,
groupFill=T #根据性别进行填充
)
参考下文获取data.RData
