Last updated: 2017-03-29
Code version: d2e8a16
source('../../cell_type/yanyu_lib.R')
aucs_danq <- read.table('../data/aucs.txt', sep = '\t', header = T)
aucs_danq <- as_num(aucs_danq)
Warning in as_num(aucs_danq): NAs introduced by coercion
Warning in as_num(aucs_danq): NAs introduced by coercion
aucs_danq <- aucs_danq[!is.na(aucs_danq$DeepSEA.ROC.AUC),]
aucs_danq$AnnotationType <- to_annotation_type(aucs_danq$TF.DNase.HistoneMark)
p1<-ggplot(aucs_danq) + geom_histogram(aes(x = DeepSEA.ROC.AUC, fill = AnnotationType), bins=50) + facet_grid(AnnotationType~., scales = 'free_y') + theme(strip.background = element_blank(),
strip.text.y = element_blank(),legend.position="none")
p2<-ggplot(aucs_danq) + geom_histogram(aes(x = DeepSEA.PR.AUC, fill = AnnotationType), bins=30) + facet_grid(.~AnnotationType, scales = 'free_y') + coord_flip() + theme(strip.background = element_blank(), strip.text.x = element_blank(), legend.position="none")
p3<-ggplot(aucs_danq) + geom_point(aes(x = DeepSEA.ROC.AUC, y = DeepSEA.PR.AUC, color = AnnotationType)) + theme(legend.justification=c(0,1), legend.position=c(0,1))
multiplot(p3, p1, p2, cols=2)
sessionInfo()
R version 3.3.3 (2017-03-06)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X Yosemite 10.10.5
locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
attached base packages:
[1] grid stats graphics grDevices utils datasets methods base
other attached packages:
[1] stringr_1.2.0 workflowr_0.4.0 plyr_1.8.4 rmarkdown_1.4 reshape2_1.4.2 h5_0.9.8 ggplot2_2.2.1
loaded via a namespace (and not attached):
[1] Rcpp_0.12.10 rstudioapi_0.6 knitr_1.15.1 magrittr_1.5 munsell_0.4.3 colorspace_1.3-2 tools_3.3.3 gtable_0.2.0 git2r_0.18.0 htmltools_0.3.5 yaml_2.1.14 lazyeval_0.2.0 assertthat_0.1 digest_0.6.12 rprojroot_1.2 tibble_1.2 evaluate_0.10 labeling_0.3 stringi_1.1.3 scales_0.4.1 backports_1.0.5
This R Markdown site was created with workflowr