|
|
|
@ -32,5 +32,5 @@ g<-ggplot(mdf, aes(Cytokine, Value, color=Group))+ |
|
|
|
geom_point(position=position_dodge(width = 0.75)) |
|
|
|
|
|
|
|
stat.test<-mdf \%>\% group_by(Cytokine) \%>\% t_test(Value~Group) |
|
|
|
g+stat_pvalue_manual(ggstats_add_xy(stat.test, mdf, "Group"), label = "p", tip.length = 0.02, hide.ns = T) |
|
|
|
g+stat_pvalue_manual(ggstats_add_xy(stat.test, mdf, "Cytokine","Group"), label = "p", tip.length = 0.02, hide.ns = T) |
|
|
|
} |
