【R语言】散点图+直方图+密度曲线（二）

#安装相应的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

#在散点图上添加密度曲线
ggExtra::ggMarginal(p, type = "density",  #指定添加类型
                    xparams=list(fill = "green"),  #指定颜色
                    yparams = list(fill="orange"),  #指定颜色
)

#在散点图上添加histogram
ggExtra::ggMarginal(p, type = "histogram",  #指定添加类型
                    xparams=list(fill = "green"),  #指定颜色
                    yparams = list(fill="orange"), #指定颜色
)

#在散点图上添加密度曲线+在散点图上添加histogram
ggExtra::ggMarginal(p, type = "densigram",
                    xparams=list(fill = "green"),
                    yparams = list(fill="orange"),
)

#在散点图上添加箱型图
ggExtra::ggMarginal(p, type = "boxplot",
                    xparams=list(fill = "green"),
                    yparams = list(fill="orange")
)

#在散点图上添加小提琴图
ggExtra::ggMarginal(p, type = "violin",
                    xparams=list(fill = "green"),
                    yparams = list(fill="orange"),
)

#根据性别分组添加histogram
ggExtra::ggMarginal(p, type = "histogram",
                    xparams=list(fill = "green"),
                    yparams = list(fill="orange"),
                    groupFill=T   #根据性别进行填充颜色
                    )

#根据性别分组添加密度曲线
ggExtra::ggMarginal(p, type = "density",
                    xparams=list(fill = "green"),
                    yparams = list(fill="orange"),
                    groupColour = T,
                    groupFill=T  #根据性别进行填充
)