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 美国高防vps = ‘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”)
本博客内容将同步更新到个人微信公众号：生信玩家。欢迎大家关注~~~
