Stay hungry, stay foolish!
提供几个简单的函数扩展ggplot2的图形，可以给散点图添加边际图形。
有好多包可以直接实现这种效果，但是这个包比较纯粹，就只做这一件事。
安装
代码语言：javascript复制# 2选1
install.packages("ggExtra")
install.packages("devtools")
devtools::install_github("daattali/ggExtra")
使用
代码语言：javascript复制library("ggExtra")
library("ggplot2")
使用iris用于演示。
piris <- ggplot(iris, aes(Sepal.Length, Sepal.Width, colour = Species))
geom_point() theme_bw()
ggMarginal(piris, groupColour = TRUE, groupFill = TRUE)
plot of chunk unnamed-chunk-3
更改其他类型的边际图形：
代码语言：javascript复制ggMarginal(piris, type = "box", groupColour = TRUE, groupFill = TRUE)
plot of chunk unnamed-chunk-4
还可以更改填充色、边框色等：
代码语言：javascript复制set.seed(123)
df= data.frame(x = rnorm(500, 50, 10), y = runif(500, 0, 50))
p = ggplot(df, aes(x,y)) geom_point() theme_bw()
ggMarginal(p, type = "histogram", margins = "both",
col = "blue",
fill = "tomato"
)
plot of chunk unnamed-chunk-5
以上就是今天的内容，希望对你有帮助哦！欢迎点赞、在看、关注、转发！
欢迎在评论区留言或直接添加我的微信！
End
欢迎关注公众号：医学和生信笔记
“医学和生信笔记 公众号主要分享：1.医学小知识、肛肠科小知识；2.R语言和Python相关的数据分析、可视化、机器学习等；3.生物信息学学习资料和自己的学习笔记！
