added boxplots_stat_ob_paper.R and plot_data_ob_paper.R
This commit is contained in:
parent
dc7e277a72
commit
7011dc75fa
2 changed files with 447 additions and 0 deletions
225
boxplots_stat_ob_paper.R
Normal file
225
boxplots_stat_ob_paper.R
Normal file
|
|
@ -0,0 +1,225 @@
|
|||
#!/usr/bin/Rscript
|
||||
getwd()
|
||||
setwd("~/git/mosaic_2020/")
|
||||
getwd()
|
||||
###############################################################
|
||||
# TASK: boxplots with stats for NPA, SAM and SERUM
|
||||
# for each mediator, at each timepoint by group
|
||||
|
||||
# TODO: check boxplot_stat_function.R
|
||||
# output plots even if stats fail due to data containing only LLODs
|
||||
# however for a given mediator, if there is error for ANY timepoint
|
||||
# stats will not be added for the entire plot! To be handled in
|
||||
# next iteration!
|
||||
###############################################################
|
||||
|
||||
#=============
|
||||
# Input
|
||||
#=============
|
||||
source("boxplot_stat_function.R")
|
||||
source("plot_data_ob_paper.R")
|
||||
|
||||
#=============
|
||||
# Output
|
||||
#=============
|
||||
outdir_plots_paper = "/home/tanu/git/mosaic_2020/output/plots_paper/"
|
||||
|
||||
#outfile_bp = paste0("boxplots_stats_paper-%03d.png")
|
||||
#output_boxplot_stats = paste0(outdir_plots_paper, outfile_bp); output_boxplot_stats
|
||||
#svg(output_boxplot_stats, width=22, height=16)
|
||||
#png(output_boxplot_stats, width = 11, height = 8, units = "in", res = 300)
|
||||
|
||||
###############################################################
|
||||
#===============================
|
||||
# data assignment for plots
|
||||
#===============================
|
||||
#-------------
|
||||
# NPA: VL
|
||||
#-------------
|
||||
#linear
|
||||
cat("plotting for FP adult patients:",
|
||||
length(unique(vl_lf_plot_df$mosaic)))
|
||||
|
||||
# linear : but data is not visible
|
||||
plots_npa_vl = doMyPlotsStats(vl_lf_plot_df)
|
||||
npa_plot_vl = ggpubr::ggarrange(plotlist = plots_npa_vl
|
||||
, align = "hv"
|
||||
#, legend = c(0.8,1)
|
||||
#, legend = "bottom"
|
||||
, common.legend = T)
|
||||
npa_plot_vl
|
||||
|
||||
# log
|
||||
plots_npa_vl_log = doMyPlotsStats(vl_lf_plot_df_log)
|
||||
npa_plot_vl_log = ggpubr::ggarrange(plotlist = plots_npa_vl_log
|
||||
, align = "hv"
|
||||
, common.legend = T
|
||||
)
|
||||
npa_plot_vl_log
|
||||
|
||||
############################################################
|
||||
mediator_order = c("IFN-α2a","IFN-β", "IFN-γ", "IL-1", "IL-6", "CXCL8", "CXCL10", "TNF-α")
|
||||
|
||||
#-----------------------------
|
||||
# NPA: selected mediators
|
||||
#-----------------------------
|
||||
# linear
|
||||
plots_npa = doMyPlotsStats(npa_lf_plot_df, custom_order = mediator_order)
|
||||
npa_plot_1 = ggpubr::ggarrange(plotlist = plots_npa
|
||||
, align = "hv"
|
||||
, ncol = 8
|
||||
, nrow = 1
|
||||
, common.legend = T)
|
||||
npa_plot = annotate_figure(npa_plot_1,
|
||||
top = text_grob("NPA"
|
||||
, color = "black"
|
||||
#, face = "bold"
|
||||
, size = 14))
|
||||
|
||||
# log
|
||||
plots_npa_log = doMyPlotsStats(npa_lf_plot_df_log, custom_order = mediator_order)
|
||||
npa_plot_log_1 = ggpubr::ggarrange(plotlist = plots_npa_log
|
||||
, align = "hv"
|
||||
, ncol = 8
|
||||
, nrow = 1
|
||||
, common.legend = T)
|
||||
npa_plot_log = annotate_figure(npa_plot_log_1,
|
||||
top = text_grob("NPA"
|
||||
, color = "black"
|
||||
#, face = "bold"
|
||||
, size = 14))
|
||||
npa_plot_log
|
||||
#-------------------------------
|
||||
# SERUM: selected mediators
|
||||
#--------------------------------
|
||||
# linear
|
||||
plots_serum = doMyPlotsStats(serum_lf_plot_df, custom_order = mediator_order)
|
||||
serum_plot_1 = ggpubr::ggarrange(plotlist = plots_serum
|
||||
, align = "hv"
|
||||
, ncol = 8
|
||||
, nrow = 1
|
||||
, common.legend = F
|
||||
)
|
||||
|
||||
serum_plot = annotate_figure(serum_plot_1,
|
||||
top = text_grob("Serum"
|
||||
, color = "black"
|
||||
#, face = "bold"
|
||||
, size = 14))
|
||||
serum_plot
|
||||
|
||||
# log
|
||||
plots_serum_log = doMyPlotsStats(serum_lf_plot_log, custom_order = mediator_order)
|
||||
serum_plot_log_1 = ggpubr::ggarrange(plotlist = plots_serum_log
|
||||
, align = "hv"
|
||||
, ncol = 8
|
||||
, nrow = 1
|
||||
, common.legend = F)
|
||||
|
||||
serum_plot_log = annotate_figure(serum_plot_log_1,
|
||||
top = text_grob("Serum"
|
||||
, color = "black"
|
||||
#, face = "bold"
|
||||
, size = 14))
|
||||
|
||||
serum_plot_log
|
||||
|
||||
##############################################################
|
||||
##############################################################
|
||||
cat ("Outplots will be in:", outdir_plots_paper)
|
||||
#======================
|
||||
# Output: Linear graphs
|
||||
#======================
|
||||
# viral load: linear
|
||||
viral_load_annot = annotate_figure(
|
||||
npa_plot_vl
|
||||
, left = text_grob("pg/ml"
|
||||
, color = "black"
|
||||
, rot = 90
|
||||
, size = 18)
|
||||
)
|
||||
|
||||
png(paste0(outdir_plots_paper, "viral_load_linear"),
|
||||
width = 5,
|
||||
height = 5,
|
||||
units = "in",
|
||||
res = 300)
|
||||
|
||||
viral_load_annot
|
||||
dev.off()
|
||||
|
||||
# npa and serum mediators: linear
|
||||
outplot_linear = cowplot::plot_grid(
|
||||
npa_plot,
|
||||
serum_plot,
|
||||
nrow = 2,
|
||||
rel_heights = c(1.15,1)
|
||||
)
|
||||
|
||||
outplot_linear_annot = annotate_figure(
|
||||
outplot_linear
|
||||
, left = text_grob("pg/ml"
|
||||
, color = "black"
|
||||
, rot = 90
|
||||
, size = 16)
|
||||
)
|
||||
|
||||
png(paste0(outdir_plots_paper, "npa_serum_linear"),
|
||||
width = 18,
|
||||
height = 6,
|
||||
units = "in",
|
||||
res = 300)
|
||||
outplot_linear_annot
|
||||
dev.off()
|
||||
|
||||
|
||||
#======================
|
||||
# Output: Log graphs
|
||||
#======================
|
||||
# viral load: log
|
||||
viral_load_log_annot = annotate_figure(
|
||||
npa_plot_vl_log
|
||||
, left = text_grob("Log10 (pg/ml)"
|
||||
, color = "black"
|
||||
, rot = 90
|
||||
, size = 18)
|
||||
)
|
||||
|
||||
png(paste0(outdir_plots_paper, "viral_load_log" ),
|
||||
width = 5,
|
||||
height = 5,
|
||||
units = "in",
|
||||
res = 300)
|
||||
|
||||
viral_load_log_annot
|
||||
dev.off()
|
||||
|
||||
# npa and serum mediators: log
|
||||
outplot_log = cowplot::plot_grid(
|
||||
npa_plot_log,
|
||||
serum_plot_log,
|
||||
nrow = 2,
|
||||
rel_heights = c(1.15,1)
|
||||
)
|
||||
|
||||
|
||||
outplot_log_annot = annotate_figure(
|
||||
outplot_log
|
||||
, left = text_grob("Log10 (pg/ml)"
|
||||
, color = "black"
|
||||
, rot = 90
|
||||
, size = 16)
|
||||
)
|
||||
|
||||
png(paste0(outdir_plots_paper, "npa_serum_log"),
|
||||
width = 18,
|
||||
height = 6,
|
||||
units = "in",
|
||||
res = 300)
|
||||
outplot_log_annot
|
||||
dev.off()
|
||||
|
||||
|
||||
###############################################################
|
||||
# END OF SCRIPT #
|
||||
###############################################################
|
||||
222
plot_data_ob_paper.R
Normal file
222
plot_data_ob_paper.R
Normal file
|
|
@ -0,0 +1,222 @@
|
|||
#!/usr/bin/Rscript
|
||||
getwd()
|
||||
setwd("~/git/mosaic_2020/")
|
||||
getwd()
|
||||
############################################################
|
||||
# Graphs for paper?
|
||||
#============
|
||||
# Mediators required
|
||||
#============
|
||||
#NPA and Serum
|
||||
|
||||
#IFNa2a
|
||||
#IFN-b
|
||||
#IFN-g
|
||||
#IL-1
|
||||
#IL-6
|
||||
#IL-8
|
||||
#IP-10
|
||||
#TNF-a
|
||||
#vl_pfu_ul
|
||||
|
||||
#Figure 1a: Study design
|
||||
#Figure 1b: Viral load
|
||||
#Figure 1c: NPA
|
||||
#Figure 1d: Serum
|
||||
|
||||
############################################################
|
||||
|
||||
#=============
|
||||
# Input
|
||||
#=============
|
||||
source("data_extraction_mediators.R")
|
||||
|
||||
# check: adult variable and age variable discrepancy!
|
||||
metadata_all$mosaic[metadata_all$adult==1 & metadata_all$age<=18]
|
||||
|
||||
#===============================
|
||||
# data assignment for plots
|
||||
#================================
|
||||
#time_letter = "t"
|
||||
time_letter = "T"
|
||||
|
||||
#-----------
|
||||
# npa
|
||||
#-----------
|
||||
wf_fp_npa = npa_wf[npa_wf$flustat == 1,]
|
||||
lf_fp_npa = npa_lf[npa_lf$flustat == 1,]
|
||||
lf_fp_npa$timepoint = paste0(time_letter, lf_fp_npa$timepoint)
|
||||
lf_fp_npa$timepoint = as.factor(lf_fp_npa$timepoint)
|
||||
lf_fp_npa$obesity = as.factor(lf_fp_npa$obesity)
|
||||
|
||||
table(lf_fp_npa$mediator)
|
||||
head(lf_fp_npa$value[lf_fp_npa$mediator == "vitd"])
|
||||
lf_fp_npa = lf_fp_npa[!lf_fp_npa$mediator == "vitd",]
|
||||
table(lf_fp_npa$mediator)
|
||||
|
||||
table(lf_fp_npa$sample_type, lf_fp_npa$timepoint)
|
||||
|
||||
a = lf_fp_npa %>%
|
||||
select(matches("^(vl_pfu|timepoint|mediator|sample_type)"))
|
||||
table(a$sample_type)
|
||||
|
||||
#-----------
|
||||
# serum
|
||||
#-----------
|
||||
wf_fp_serum = serum_wf[serum_wf$flustat == 1,]
|
||||
lf_fp_serum = serum_lf[serum_lf$flustat == 1,]
|
||||
lf_fp_serum$timepoint = paste0(time_letter, lf_fp_serum$timepoint)
|
||||
lf_fp_serum$timepoint = as.factor(lf_fp_serum$timepoint)
|
||||
lf_fp_serum$obesity = as.factor(lf_fp_serum$obesity)
|
||||
|
||||
head(lf_fp_serum$value[lf_fp_serum$mediator == "vitd"])
|
||||
|
||||
########################################################################
|
||||
rm(npa_lf, sam_lf, serum_lf)
|
||||
|
||||
|
||||
########################################################################
|
||||
viral_load_npa = c("vl_pfu_ul")
|
||||
selected_mediators = c("ifna2a", "ifnb", "ifn", "il1", "il6", "il8", "ip10", "tnf")
|
||||
cols_to_select = c("mosaic", "obesity", "flustat", "asthma",
|
||||
"sample_type", "timepoint", "mediator", "value" )
|
||||
|
||||
# sanity checks
|
||||
table(lf_fp_npa$mediator, lf_fp_npa$timepoint)
|
||||
class(lf_fp_npa$mediator)
|
||||
str(lf_fp_npa)
|
||||
table(lf_fp_npa$mediator)
|
||||
|
||||
# selected dfs for plotting for paper
|
||||
#--------
|
||||
# VL: NPA
|
||||
#--------
|
||||
vl_lf_plot = lf_fp_npa[lf_fp_npa$mediator%in%viral_load_npa,]
|
||||
vl_lf_plot_df = vl_lf_plot[,colnames(vl_lf_plot)%in%cols_to_select]
|
||||
a6 = vl_lf_plot_df
|
||||
|
||||
table(vl_lf_plot $mediator, vl_lf_plot$timepoint, vl_lf_plot$sample_type)
|
||||
table(vl_lf_plot$sample_type)
|
||||
table(lf_fp_npa$sample_type)
|
||||
|
||||
a5 = npa_wf%>%
|
||||
select(matches("^(vl_pfu|mosaic)"))
|
||||
identical(a5$vl_pfu_ul_npa1, a5$vl_pfu_ul_npa1.1)
|
||||
|
||||
# Minor fix: somehow upstream introduced this...
|
||||
table(vl_lf_plot_df$sample_type[vl_lf_plot_df$sample_type == "npa1."])
|
||||
table(vl_lf_plot_df$sample_type[vl_lf_plot_df$sample_type == "npa"])
|
||||
|
||||
vl_lf_plot_df$sample_type[vl_lf_plot_df$sample_type == "npa1."] <- "npa"
|
||||
table(vl_lf_plot_df$sample_type[vl_lf_plot_df$sample_type == "npa1."])
|
||||
table(vl_lf_plot_df$sample_type)
|
||||
|
||||
#==========================
|
||||
# DFs for plotting: VL NPA
|
||||
#==========================
|
||||
# linear: raw values
|
||||
dim(vl_lf_plot_df)
|
||||
table(vl_lf_plot_df$mediator, vl_lf_plot_df$timepoint)
|
||||
table(vl_lf_plot_df$sample_type, vl_lf_plot_df$timepoint)
|
||||
|
||||
# display names
|
||||
vl_lf_plot_df$mediator[vl_lf_plot_df$mediator == "vl_pfu_ul"] <- "Viral load" # U+03B1
|
||||
|
||||
# log values: log10
|
||||
vl_lf_plot_df_log = vl_lf_plot_df
|
||||
table(vl_lf_plot_df_log$mediator=="Viral load")
|
||||
|
||||
# vl data juggling with 0!
|
||||
vl_lf_plot_df_log$value[1:30]
|
||||
table(vl_lf_plot_df_log$value == 0)
|
||||
|
||||
vl_lf_plot_df_log$value[vl_lf_plot_df_log$value == 0] <- 1
|
||||
vl_lf_plot_df_log$value[1:30]
|
||||
table(vl_lf_plot_df_log$value == 1)
|
||||
|
||||
orig_nrow = nrow(vl_lf_plot_df_log); orig_nrow; table(vl_lf_plot_df_log$mediator)
|
||||
head(vl_lf_plot_df_log$value)
|
||||
|
||||
# log all values and reassign
|
||||
vl_lf_plot_df_log$value = log10(vl_lf_plot_df_log$value)
|
||||
vl_lf_plot_df_log$value[1:30]
|
||||
|
||||
##############################################################
|
||||
|
||||
#--------
|
||||
# NPA: mediators
|
||||
#--------
|
||||
# linear: raw values
|
||||
npa_lf_plot = lf_fp_npa[lf_fp_npa$mediator%in%selected_mediators,]
|
||||
npa_lf_plot_df = npa_lf_plot[,colnames(npa_lf_plot)%in%cols_to_select]
|
||||
table(npa_lf_plot_df$sample_type)
|
||||
table(npa_lf_plot_df$sample_type,npa_lf_plot_df$timepoint, npa_lf_plot_df$mediator )
|
||||
|
||||
# Display names
|
||||
npa_lf_plot_df$mediator[npa_lf_plot_df$mediator == "ifna2a"] <- "IFN-α2a" # U+03B1
|
||||
npa_lf_plot_df$mediator[npa_lf_plot_df$mediator == "ifnb"] <- "IFN-β" # U+03B2
|
||||
npa_lf_plot_df$mediator[npa_lf_plot_df$mediator == "ifn"] <- "IFN-γ" # U+03B3
|
||||
npa_lf_plot_df$mediator[npa_lf_plot_df$mediator == "il1"] <- "IL-1"
|
||||
|
||||
npa_lf_plot_df$mediator[npa_lf_plot_df$mediator == "il6"] <- "IL-6"
|
||||
npa_lf_plot_df$mediator[npa_lf_plot_df$mediator == "il8"] <- "CXCL8"
|
||||
npa_lf_plot_df$mediator[npa_lf_plot_df$mediator == "ip10"] <- "CXCL10"
|
||||
npa_lf_plot_df$mediator[npa_lf_plot_df$mediator == "tnf"] <- "TNF-α" # U+03B1
|
||||
|
||||
# check display names
|
||||
table(npa_lf_plot_df$mediator)
|
||||
|
||||
# log values: log10
|
||||
npa_lf_plot_df_log = npa_lf_plot_df
|
||||
table(npa_lf_plot_df_log$value == 1.000000e+04)
|
||||
table(npa_lf_plot_df_log$value == 0)
|
||||
|
||||
# log all values and reassign
|
||||
npa_lf_plot_df_log$value[1:10]
|
||||
npa_lf_plot_df_log$value = log10(npa_lf_plot_df_log$value)
|
||||
npa_lf_plot_df_log$value[1:10]
|
||||
|
||||
# check display names
|
||||
table(npa_lf_plot_df_log$mediator)
|
||||
|
||||
#--------
|
||||
# Serum: mediators
|
||||
#--------
|
||||
# linear: raw values
|
||||
serum_lf_plot = lf_fp_serum[lf_fp_serum$mediator%in%selected_mediators,]
|
||||
serum_lf_plot_df = serum_lf_plot[,colnames(serum_lf_plot)%in%cols_to_select]
|
||||
table(serum_lf_plot_df$sample_type)
|
||||
table(serum_lf_plot_df$sample_type,serum_lf_plot_df$timepoint, serum_lf_plot_df$mediator )
|
||||
|
||||
# Display names: Serum
|
||||
serum_lf_plot_df$mediator[serum_lf_plot_df$mediator == "ifna2a"] <- "IFN-α2a" # U+03B1
|
||||
serum_lf_plot_df$mediator[serum_lf_plot_df$mediator == "ifnb"] <- "IFN-β" # U+03B2
|
||||
serum_lf_plot_df$mediator[serum_lf_plot_df$mediator == "ifn"] <- "IFN-γ" # U+03B3
|
||||
serum_lf_plot_df$mediator[serum_lf_plot_df$mediator == "il1"] <- "IL-1"
|
||||
|
||||
serum_lf_plot_df$mediator[serum_lf_plot_df$mediator == "il6"] <- "IL-6"
|
||||
serum_lf_plot_df$mediator[serum_lf_plot_df$mediator == "il8"] <- "CXCL8"
|
||||
serum_lf_plot_df$mediator[serum_lf_plot_df$mediator == "ip10"] <- "CXCL10"
|
||||
serum_lf_plot_df$mediator[serum_lf_plot_df$mediator == "tnf"] <- "TNF-α" # U+03B1
|
||||
|
||||
# check display names
|
||||
table(serum_lf_plot_df$mediator)
|
||||
|
||||
# log values: log10
|
||||
serum_lf_plot_log = serum_lf_plot_df
|
||||
table(serum_lf_plot_log$value == 1.000000e+04)
|
||||
table(serum_lf_plot_log$value == 0)
|
||||
|
||||
# log all values and reassign
|
||||
serum_lf_plot_log$value[1:10]
|
||||
serum_lf_plot_log$value = log10(serum_lf_plot$value)
|
||||
serum_lf_plot_log$value[1:10]
|
||||
|
||||
# check display names
|
||||
table(serum_lf_plot_log$mediator)
|
||||
|
||||
########################################################################
|
||||
# remove variables
|
||||
rm(vl_lf_plot, npa_lf_plot, serum_lf_plot)
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue