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

lineage plots: be a function and then run over all pairs

Browse source
This commit is contained in:
Tanushree Tunstall 2022-06-29 19:24:47 +01:00
parent 8965bee5d6
commit cbfa9ff31b
2 changed files with 193 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
scripts/plotting/LINEAGE2.R
View file

@ -118,12 +118,7 @@ plot_df$pvalRF = ifelse(plot_df$pvalR == 0.05, paste0("p=",plot_df$pvalR, "."),
plot_df$pvalRF = ifelse(plot_df$pvalR <= 0.05, paste0("p=",plot_df$pvalR, "*"), plot_df$pvalRF )
plot_df$pvalRF = ifelse(plot_df$pvalR <= 0.01, paste0("p=",plot_df$pvalR, "**"), plot_df$pvalRF )
plot_df$pvalRF = ifelse(plot_df$pvalR == 0, 'p<0.001, ***', plot_df$pvalRF)
head(plot_df$pval)
head(plot_df$pvalR)
View(plot_df$pvalRF)
plot_df$pvalRF = ifelse(plot_df$pvalR > 0.05, paste0("p=",plot_df$pvalR), plot_df$pvalRF)
# format p value
# TODO: add case statement for correct pvalue formatting
@ -231,7 +226,7 @@ sapply(1:plot_pages, function(page){
, y = 'Sample Count'
) +
#geom_text(aes(label = p.value, x = 0.5, y = 5))
geom_blank(aes(y = ypos_label+2)) +
geom_blank(aes(y = ypos_label+1.25)) +
geom_label(aes(label = pvalRF, x = 2.5, ypos_label+0.75), fill="white")
)
dev.off()