boxplot加显著性
library(ggplot2)
library(ggsignif)
head(iris)
#自动添加显著性标记
compaired <- list(c(“versicolor”, “virginica”))
ggplot(iris, aes(x=Species, y=Sepal.Width, fill=Species)) +
geom_boxplot() +
geom_signif(comparisons = compaired,
map_signif_level = T)
#手动添加显著性标记
dat <- data.frame(Group = c(“S1”,“S1”,“S2”,“S2”),
Sub = c(“A”,“B”,“A”,“B”),
Value = c(3,5,7,8))
dat
ggplot(dat, aes(Group, Value)) +
geom_bar(aes(fill = Sub), stat = “identity”, position = “dodge”, width = .5) +
geom_signif(y_position = c(5.3, 8.3), xmin = c(0.8, 1.8), xmax = c(1.2, 2.2),
annotations = c("**",“NS”), tip_length = 0) +
geom_signif(comparisons = list(c(“S1”,“S2”)),
y_position = 9.3, tip_length = 0, vjust = 0) +
scale_fill_manual(values = c(“grey80”,“grey20”))
??geom_signif
ggplot(mpg, aes(class, hwy, fill= class)) +
geom_boxplot() +
geom_signif(comparisons = list(c(“compact”, “pickup”),
c(“subcompact”, “suv”)))
ggplot(mpg, aes(class, hwy, fill= class)) +
geom_boxplot() +
geom_signif(comparisons = list(c(“compact”, “pickup”),
c(“subcompact”, “suv”)),
map_signif_level = T)
ggplot(mpg, aes(class, hwy, fill=class)) +
geom_boxplot() +
geom_signif(comparisons = list(c(“compact”, “pickup”),
c(“subcompact”, “suv”)),
map_signif_level=function§sprintf(“p = %.2g”, p))
ggplot(mpg, aes(class, hwy, fill= class)) +
geom_boxplot() +
geom_signif(annotations = c(“First”, “Second”),
y_position = c(30, 40), xmin=c(4,1), xmax=c(5,3))
据此,将文章R绘图应用实例:成组的t检验及绘图添加显著性做适当修改,参数如下:
ggplot(result_long_count2, aes(x=variable, y=value, fill=Treated)) +
geom_bar(position=position_dodge(.9), stat=“identity”,
colour=“black”,size=.3) +
geom_errorbar(aes(ymin=value-se, ymax=value+se),
size=.3, width=.2,
position=position_dodge(.9)) +
geom_signif(annotations = c("**", “*”), y_position = c(1.15,1.25),
xmin = c(0.78, 1.78),xmax = c(1.23, 2.23),
tip_length = c(c(0.05, 0.8),c(0.05, 0.55)), vjust = 0) +
scale_color_brewer(“Set1”) +
xlab(“RNAi Treated”) +
ylab(“Relative Expression”) +
ggtitle(“The Effect of RNAi on two genes”)
作者:谢俊飞
链接:https://www.jianshu.com/p/4d9d13ae8744
來源:简书
简书著作权归作者所有,任何形式的转载都请联系作者获得授权并注明出处。