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

added boxplot_stat_log.R to generate graphs with log data and stats

Browse source
This commit is contained in:
Tanushree Tunstall 2020-11-02 14:28:52 +00:00
parent 550e8b2c50
commit b8ff7995ac
6 changed files with 249 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
plot_data.R
View file

@ -21,7 +21,7 @@ metadata_all$mosaic[metadata_all$adult==1 & metadata_all$age<=18]
#-----------
# npa
#-----------
#wf_fp_npa = npa_wf[npa_wf$flustat == 1,]
wf_fp_npa = npa_wf[npa_wf$flustat == 1,]
lf_fp_npa = npa_lf[npa_lf$flustat == 1,]
lf_fp_npa$timepoint = paste0("t", lf_fp_npa$timepoint)
lf_fp_npa$timepoint = as.factor(lf_fp_npa$timepoint)
@ -35,7 +35,7 @@ table(lf_fp_npa$mediator)
#-----------
# sam
#-----------
#wf_fp_sam = samm_wf[samm_wf$flustat == 1,]
wf_fp_sam = sam_wf[sam_wf$flustat == 1,]
lf_fp_sam = sam_lf[sam_lf$flustat == 1,]
lf_fp_sam$timepoint = paste0("t", lf_fp_sam$timepoint)
lf_fp_sam$timepoint = as.factor(lf_fp_sam$timepoint)
@ -49,7 +49,7 @@ table(lf_fp_sam$mediator)
#-----------
# serum
#-----------
#wf_fp_serum = serum_wf[serum_wf$flustat == 1,]
wf_fp_serum = serum_wf[serum_wf$flustat == 1,]
lf_fp_serum = serum_lf[serum_lf$flustat == 1,]
lf_fp_serum$timepoint = paste0("t", lf_fp_serum$timepoint)
lf_fp_serum$timepoint = as.factor(lf_fp_serum$timepoint)