tanu/mosaic_2020
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

rendering formatted pvalue on graph

Browse source
This commit is contained in:
Tanushree Tunstall 2020-10-31 20:46:06 +00:00
parent dd54f10ad8
commit 6375a53feb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
boxplot_stat_function.R
View file

@ -45,14 +45,14 @@ doMyPlots <- function(df) {
group_by(timepoint, mediator) %>% group_by(timepoint, mediator) %>%
wilcox_test(value ~ obesity, paired = F) %>% wilcox_test(value ~ obesity, paired = F) %>%
add_significance("p") add_significance("p")
stat_df stat_df$p_format = round(stat_df$p, digits = 3)
stat_df <- stat_df %>% stat_df <- stat_df %>%
add_xy_position(x = "timepoint", dodge = 0.8) add_xy_position(x = "timepoint", dodge = 0.8)
cat("printing p") cat("printing p")
p2 = p + stat_pvalue_manual(stat_df p2 = p + stat_pvalue_manual(stat_df
#, y.position = max_y #, y.position = max_y
, label = "{p} {p.signif}" , label = "{p_format} {p.signif}"
, hide.ns = T , hide.ns = T
, tip.length = 0)+ , tip.length = 0)+
scale_y_continuous(expand = expansion(mult = c(0.05, 0.25))) scale_y_continuous(expand = expansion(mult = c(0.05, 0.25)))