R-可视化（四）：添加误差棒

1.添加均值和误差棒

library(tidyr)
library(ggplot2)
library(ggpubr)

• 长型数据框-线图

ggline(ToothGrowth, x = "dose", y = "len", 
       add = c("mean_se"),
       color  = "supp", palette = "jco")

• 长型数据框-条形图

ggbarplot(ToothGrowth, x = "dose", y = "len", 
          add = c("mean_se"),
          fill = "supp",
          color = 'supp', palette = "jco",alpha = 0.5, #默认颜色需要这行操作
          position = position_dodge(0.8))

• 宽型数据框-线图

expr <- read.delim("https://raw.githubusercontent.com/kassambara/data/master/expr_tcga.txt",
                   stringsAsFactors = FALSE)

ggline(expr, x = "dataset",
       y = c("GATA3", "PTEN", "XBP1"),
       merge = TRUE,
       ylab = "Expression", 
       add = c("mean_sd"),          
       palette = "jco")

• 宽型数据框-条形图

ggbarplot(expr, x = "dataset",
          y = c("GATA3", "PTEN", "XBP1"),
          merge = TRUE,
          ylab = "Expression", 
          add = "mean_se", palette = "jco")

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