ggalluvial做图

生信编程日常

发布于 2020-04-23 16:46:08

6440

发布于 2020-04-23 16:46:08

文章被收录于专栏：生物信息学、python、R、linux生物信息学、python、R、linux

ggalluvial是依赖于ggplot做alluvial plot的一个R包。官方文档：https://cran.r-project.org/web/packages/ggalluvial/vignettes/ggalluvial.html

下载

install.packages('ggalluvial')

简单作图以下用Titanic数据集作为例子。数据集的内容：

library(ggalluvial)
data(Titanic)
head(as.data.frame(Titanic))

做出泰坦尼克号的生还率与性别和舱位分类的关系图：

ggplot(as.data.frame(Titanic),
       aes(y = Freq,
           axis1 = Survived, axis2 = Sex, axis3 = Class)) +
  geom_alluvium(aes(fill = Class),
                width = 0, knot.pos = 0, reverse = FALSE) +
  guides(fill = FALSE) +
  geom_stratum(width = 1/8, reverse = FALSE) +
  geom_text(stat = "stratum", infer.label = TRUE, reverse = FALSE) +
  scale_x_continuous(breaks = 1:3, labels = c("Survived", "Sex", "Class")) +
  coord_flip() +
  ggtitle("Titanic survival by class and sex")