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

tweaks to thesis figs

Browse source
This commit is contained in:
Tanushree Tunstall 2023-02-24 22:38:37 +00:00
parent e9d841d989
commit 9bc18169cf
7 changed files with 361 additions and 358 deletions
Download patch file Download diff file Expand all files Collapse all files

10
scripts/functions/logoP_snp.R
View file

@ -272,11 +272,15 @@ LogoPlotSnps <- function(plot_df
, limits = factor(1:length(x_axis_colname))) +
theme(text = element_text(family="FreeSans")
, legend.position = "none"
, axis.text.x = element_blank()
, axis.text.y = element_blank()
#, axis.text.x = element_blank()
#, axis.text.y = element_blank()
#, axis.text.y = element_text()
, axis.title.x = element_blank()
, axis.title.y = element_blank()
#, axis.title.y = element_blank()
, axis.title.y = element_text(size = y_tts
, angle = 90
, colour = ytt_col
, margin = margin(t = 0, r = 0, b = 20, l = 0))
, plot.background = element_rect(fill = theme_bgc, colour=NA)
) +
labs(x=NULL, y="WT")

19
scripts/plotting/plotting_thesis/thesis-figs-alr.R
View file

@ -73,20 +73,17 @@ tile_colour_map = c("DCS" = "#00ff00"
,"PLP" = "#000080")
tile_legend=get_legend(
ggplot(tile_map, aes(factor(tile),y=0
, colour=tile_colour
, fill=tile_colour))+
geom_tile() +
theme(legend.title = element_blank(),
theme(
legend.direction="horizontal",
legend.text = element_text(size=10),
legend.key.size = unit(10, "pt")) +
scale_colour_manual(name=NULL
#, values = tile_map$tile_colour
scale_colour_manual(name="Active Site"
, values=tile_colour_map) +
scale_fill_manual(name=NULL
#,values=tile_map$tile_colour
scale_fill_manual(name="Active Site"
, values = tile_colour_map)
)
@ -198,7 +195,7 @@ logo_or_low = LogoPlotCustomH(
lig3_colour = tile_map$tile_colour[4]
)
stability_low = stab()
stability_low = stab()+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
# MID
@ -254,7 +251,7 @@ logo_p_snps_high = LogoPlotSnps(
lig1_colour = tile_map$tile_colour[2],
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
logo_or_high = LogoPlotCustomH(
small_df3,
@ -270,10 +267,10 @@ logo_or_high = LogoPlotCustomH(
lig1_colour = tile_map$tile_colour[2],
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
stability_high = stab()
stability_high = stab()+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
#### "sorted" stability plots ####
# do stability plots for later assembly
@ -297,7 +294,7 @@ stability_high_reorder = bp_stability_hmap(
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
stability_centre_reorder = bp_stability_hmap(
snpcount_low_high_df,
reorder_position = T,

49
scripts/plotting/plotting_thesis/thesis-figs-embb.R
View file

@ -7,8 +7,9 @@
# mutable_df3 = cbind(small_df3)
# plot_df = cbind(small_df3)
source("~/git/LSHTM_analysis/config/embb.R")
source("~/git/LSHTM_analysis/scripts/plotting/get_plotting_dfs.R")
#source("~/git/LSHTM_analysis/config/embb.R")
#source("~/git/LSHTM_analysis/scripts/plotting/get_plotting_dfs.R")
#outdir="/home/pub/Work/LSHTM/Thesis_Plots/"
outdir="~/git/Writing/thesis/tex/images-corrected/embb/"
@ -36,12 +37,11 @@ low_half_snpcount = round(nrow(snpcount_low_df)/2)
snpcount_low_low_df = snpcount_low_df[1:low_half_snpcount,]
snpcount_low_high_df = snpcount_low_df[low_half_snpcount:nrow(snpcount_low_df),]
# do stability plots for later assembly
stability_high = bp_stability_hmap(snpcount_high_df,
reorder_position = T,
p_title = NULL,
my_ylab = NULL,
my_ylab = "",
yvar_colname = 'avg_stability_scaled',
stability_colname = "avg_stability_scaled",
stability_outcome_colname = "avg_stability_outcome",
@ -75,7 +75,7 @@ stability_low = bp_stability_hmap(snpcount_low_low_df,
yvar_colname = 'avg_stability_scaled',
stability_colname = "avg_stability_scaled",
stability_outcome_colname = "avg_stability_outcome",
my_ylab = NULL,
my_ylab = "",
y_max_override = max(snpcount_high_df$pos_count),
my_xaxls = 6, # x-axis label size
my_yaxls = 8, # y-axis label size
@ -84,7 +84,7 @@ stability_low = bp_stability_hmap(snpcount_low_low_df,
aa_pos_lig1=aa_pos_lig1,
aa_pos_lig2=aa_pos_lig2,
aa_pos_lig3=aa_pos_lig3
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
low=round(max(merged_df3$position)/3)
centre=low*2
@ -114,20 +114,17 @@ tile_colour_map = c("EMB" = "green"
, "Ca" = "purple")
tile_legend=get_legend(
ggplot(tile_map, aes(factor(tile),y=0
, colour=tile_colour
, fill=tile_colour))+
geom_tile() +
theme(legend.title = element_blank(),
theme(
legend.direction="horizontal",
legend.text = element_text(size=10),
legend.key.size = unit(10, "pt")) +
scale_colour_manual(name=NULL
#, values = tile_map$tile_colour
scale_colour_manual(name="Active Site"
, values=tile_colour_map) +
scale_fill_manual(name=NULL
#,values=tile_map$tile_colour
scale_fill_manual(name="Active Site"
, values = tile_colour_map)
)
@ -164,7 +161,8 @@ logoplot_chemistry_legend=get_legend(
geom_logo(tab_mt
, method = 'custom'
, col_scheme = "chemistry"
, seq_type = 'aa') + theme(legend.title = element_blank(),
, seq_type = 'aa') + theme(
legend.title = element_blank(),
legend.direction="horizontal",
legend.text = element_text(size=10),
legend.key.size = unit(10, "pt"))
@ -187,7 +185,7 @@ logo_p_snps_low = LogoPlotSnps(mutable_df3,
# needs to be: active_aa_pos AND odds ratio >10
logo_or_low = LogoPlotCustomH(small_df3,
y_axis_increment=10,
y_lab="",
y_lab="Odds Ratio",
rm_empty_y=T,
aa_pos_drug=aa_pos_drug,
active_aa_pos=active_aa_pos,
@ -201,10 +199,21 @@ logo_or_low = LogoPlotCustomH(small_df3,
small_df3 = merged_df3[merged_df3['position'] <= centre & merged_df3['position'] >= low,]
mutable_df3 = cbind(small_df3)
print(paste0("Plotting MID Rows: ", nrow(small_df3)))
logo_p_snps_centre = LogoPlotSnps(mutable_df3, y_lab = "SAV Count")
logo_p_snps_centre = LogoPlotSnps(
mutable_df3,
aa_pos_drug=aa_pos_drug,
active_aa_pos=active_aa_pos,
aa_pos_lig1=aa_pos_lig1,
aa_pos_lig2=aa_pos_lig2,
aa_pos_lig3=aa_pos_lig3,
y_lab = "SAV Count"
)
logo_or_centre = LogoPlotCustomH(small_df3,
y_axis_increment=10,
y_axis_increment=2,
y_lab = "Log(10) Odds Ratio",
y_axis_log = TRUE,
rm_empty_y=T,
aa_pos_drug=aa_pos_drug,
active_aa_pos=active_aa_pos,
@ -221,23 +230,25 @@ print(paste0("Plotting HIGH Rows: ", nrow(small_df3)))
logo_p_snps_high = LogoPlotSnps(mutable_df3,
y_lab="",
x_lab = "Position",
aa_pos_drug=aa_pos_drug,
active_aa_pos=active_aa_pos,
aa_pos_lig1=aa_pos_lig1,
aa_pos_lig2=aa_pos_lig2,
aa_pos_lig3=aa_pos_lig3
)
) + annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
logo_or_high = LogoPlotCustomH(small_df3,
y_axis_increment=10,
y_lab="",
y_lab="Odds Ratio",
rm_empty_y=T,
aa_pos_drug=aa_pos_drug,
active_aa_pos=active_aa_pos,
aa_pos_lig1=aa_pos_lig1,
aa_pos_lig2=aa_pos_lig2,
aa_pos_lig3=aa_pos_lig3
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
jpeg(paste0(outdir,"embb_average_stability.jpeg"), height = 8.25, width=11.5, unit="in",res=300)
cowplot::plot_grid(

11
scripts/plotting/plotting_thesis/thesis-figs-gid.R
View file

@ -70,20 +70,17 @@ tile_colour_map = c("STR" = "green",
,"AMP" = "#000080")
tile_legend=get_legend(
ggplot(tile_map, aes(factor(tile),y=0
, colour=tile_colour
, fill=tile_colour))+
geom_tile() +
theme(legend.title = element_blank(),
theme(
legend.direction="horizontal",
legend.text = element_text(size=10),
legend.key.size = unit(10, "pt")) +
scale_colour_manual(name=NULL
#, values = tile_map$tile_colour
scale_colour_manual(name="Active Site"
, values=tile_colour_map) +
scale_fill_manual(name=NULL
#,values=tile_map$tile_colour
scale_fill_manual(name="Active Site"
, values = tile_colour_map)
)
@ -271,7 +268,7 @@ logo_or_high = LogoPlotCustomH(
)
stability_high = stab()
stability_high = stab()+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
#### "sorted" stability plots ####
# do stability plots for later assembly

17
scripts/plotting/plotting_thesis/thesis-figs-katg.R
View file

@ -72,20 +72,17 @@ tile_colour_map = c("INH" = "#00ff00"
,"HEME" = "darkslategrey")
tile_legend=get_legend(
ggplot(tile_map, aes(factor(tile),y=0
, colour=tile_colour
, fill=tile_colour))+
geom_tile() +
theme(legend.title = element_blank(),
theme(
legend.direction="horizontal",
legend.text = element_text(size=10),
legend.key.size = unit(10, "pt")) +
scale_colour_manual(name=NULL
#, values = tile_map$tile_colour
scale_colour_manual(name="Active Site"
, values=tile_colour_map) +
scale_fill_manual(name=NULL
#,values=tile_map$tile_colour
scale_fill_manual(name="Active Site"
, values = tile_colour_map)
)
@ -198,7 +195,7 @@ logo_or_low = LogoPlotCustomH(
lig3_colour = tile_map$tile_colour[4]
)
stability_low = stab()
stability_low = stab()+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
# MID
@ -257,7 +254,7 @@ logo_p_snps_high = LogoPlotSnps(
lig1_colour = tile_map$tile_colour[2],
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
logo_or_high = LogoPlotCustomH(
small_df3,
@ -274,7 +271,7 @@ logo_or_high = LogoPlotCustomH(
lig1_colour = tile_map$tile_colour[2],
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
stability_high = stab()
@ -301,7 +298,7 @@ stability_high_reorder = bp_stability_hmap(
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
stability_centre_reorder = bp_stability_hmap(
snpcount_low_high_df,
reorder_position = T,

17
scripts/plotting/plotting_thesis/thesis-figs-rpob.R
View file

@ -71,20 +71,17 @@ heat_bar_legend = get_legend(
tile_colour_map = c("RFP" = "#00ff00")
tile_legend=get_legend(
ggplot(tile_map, aes(factor(tile),y=0
, colour=tile_colour
, fill=tile_colour))+
geom_tile() +
theme(legend.title = element_blank(),
theme(
legend.direction="horizontal",
legend.text = element_text(size=10),
legend.key.size = unit(10, "pt")) +
scale_colour_manual(name=NULL
#, values = tile_map$tile_colour
scale_colour_manual(name="Active Site"
, values=tile_colour_map) +
scale_fill_manual(name=NULL
#,values=tile_map$tile_colour
scale_fill_manual(name="Active Site"
, values = tile_colour_map)
)
@ -260,7 +257,7 @@ logo_p_snps_high = LogoPlotSnps(
lig1_colour = tile_map$tile_colour[2],
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
logo_or_high = LogoPlotCustomH(
small_df3,
@ -277,10 +274,10 @@ logo_or_high = LogoPlotCustomH(
lig1_colour = tile_map$tile_colour[2],
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
stability_low = stab(my_xaxls = 4)
stability_low = stab(my_xaxls = 4)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
#### "sorted" stability plots ####
# do stability plots for later assembly
@ -304,7 +301,7 @@ stability_high_reorder = bp_stability_hmap(
lig2_colour = tile_map$tile_colour[3],
lig3_colour = tile_map$tile_colour[4]
)
)+ annotate(geom="text", label="Position",x=0.5,y=0.025, size=3)
stability_centre_reorder = bp_stability_hmap(
snpcount_low_high_df,
reorder_position = T,

2
scripts/thesis_summary_table.R
View file

@ -187,7 +187,7 @@ loaded_files$gid_baselineC_cd_sl[loaded_files$gid_baselineC_cd_sl$source_data=="
for (x in gene) {
out_tex=paste0(latex_outdir,"ml_table-", x, ".tex")
df_name=paste0(x,"_baselineC_cd_sl")
processed_df = loaded_files[[df_name]] %>% pivot_wider(names_from=source_data, values_from=c(
processed_df = loaded_files[[df_name]] %>% pivotf_wider(names_from=source_data, values_from=c(
'MCC',
'F1',
'Accuracy',