R-可视化（七）：密度图、箱线图、小提琴图

1.密度图

library(ggpubr)
df <- ToothGrowth
df$dose <- as.factor(df$dose)

p <- ggdensity(df, x = "len", 
               fill = "dose", 
               palette = "jco", 
               ggtheme = theme_light(), legend = "top")
p

• 分面

facet(p, facet.by = "supp")
facet(p, facet.by = "supp", ncol = 1)

• 给每个分组自定义标签

facet(p, facet.by = c("supp", "dose"),
      panel.labs = list(
        supp = c("Orange Juice", "Vitamin C"),
        dose = c("D0.5", "D1", "D2")
      ),
      panel.labs.background = list(color = "steelblue", fill = "steelblue", size = 0.5),
      panel.labs.font = list(color = "white"),
      panel.labs.font.x = list(angle = 45, color = "white")
)

2.箱线图

p <- ggboxplot(df, x = "dose", y = 'len',
               fill = "dose", 
               palette = "jco", 
               ggtheme = theme_bw(), legend = "top")
p

• 分面

facet(p, facet.by = "supp")
facet(p, facet.by = "supp", ncol = 1)

3.小提琴图

    p <- ggviolin(df, x = "dose", y = 'len',
               fill = "dose",
              add = 'boxplot',
              add.params = list(fill = 'white'),
               palette = "jco", 
               ggtheme = theme_bw(), legend = "top")
p

• 分面

facet(p, facet.by = "supp")
facet(p, facet.by = "supp", ncol = 1)

本博客内容将同步更新到个人微信公众号：生信玩家。欢迎大家关注~~~