散点图添加边际图形

医学和生信笔记

发布于 2022-11-14 17:17:37

3880

发布于 2022-11-14 17:17:37

文章被收录于专栏：医学和生信笔记医学和生信笔记

Stay hungry, stay foolish!

提供几个简单的函数扩展ggplot2的图形，可以给散点图添加边际图形。

有好多包可以直接实现这种效果，但是这个包比较纯粹，就只做这一件事。

安装

# 2选1
install.packages("ggExtra")

install.packages("devtools")
devtools::install_github("daattali/ggExtra")

使用

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

更改其他类型的边际图形：

ggMarginal(piris, type = "box", groupColour = TRUE, groupFill = TRUE)

plot of chunk unnamed-chunk-4

还可以更改填充色、边框色等：

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"
           )