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

config files

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-15 20:39:35 +01:00
parent 0cc7a8fcae
commit 2e29cf8011
3 changed files with 19 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
config/pnca.R
View file

@ -52,6 +52,8 @@ cat("\n==================================================="
##############################################################
# var for position customisation for plots
aa_pos_lig1 = aa_pos_fe
aa_pos_lig2 = NULL
aa_pos_lig3 = NULL
#aa_pos_lig2 = aa_pos_catalytic
#aa_pos_lig3 = aa_pos_hbond
tile_map=data.frame(tile=c("PZA","DSL","CDL","Ca"),

5
scripts/functions/bp_subcolours.R
View file

@ -97,8 +97,9 @@ bp_stability_hmap <- function(plot_df = merged_df3
# Generate the subcols barplot
cowplot::plot_grid(
ggplot(plot_df, aes_string(x = xvar_colname
# , ordered = T)
)) +
#, ordered = T
)
) +
geom_bar(aes(fill = group)
, colour = "grey", size=0.125) +

23
scripts/functions/logoP_snp.R
View file

@ -37,8 +37,8 @@ LogoPlotSnps <- function(plot_df
, omit_snp_count = c(0) # can be 1, 2, etc.
, my_logo_col = "chemistry"
, x_lab = "Position"
, y_lab = "Count"
, x_ats = 7 # text size
, y_lab = "nsSNP Count"
, x_ats = 6 # text size
, x_tangle = 90 # text angle
, y_ats = 10
, y_tangle = 0
@ -237,17 +237,21 @@ LogoPlotSnps <- function(plot_df
, colour = xfont_bgc
#, margin = margin(t = 0.1)
)
, axis.text.y = element_text(size = y_ats
, angle = y_tangle
, hjust = 1
, vjust = -1.0
, colour = yfont_bgc)
, axis.text.y = element_blank()
# , axis.text.y = element_text(size = y_ats
# , angle = y_tangle
# , hjust = 1
# , vjust = -1.0
# , colour = yfont_bgc)
# , axis.title.x = element_text(size = x_tts
# , colour = xtt_col)
, axis.title.x = element_blank()
, axis.title.y = element_text(size = y_tts
, angle = 90
, colour = ytt_col)
, colour = ytt_col
, margin = margin(t = 0, r = 0, b = 20, l = 0)
#, hjust = -2
)
, plot.background = element_rect(fill = theme_bgc, colour=NA)
) +
@ -269,11 +273,12 @@ LogoPlotSnps <- function(plot_df
, legend.position = "none"
, 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()
, plot.background = element_rect(fill = theme_bgc, colour=NA)
) +
labs(x=NULL, y=NULL)
labs(x=NULL, y="WT")
anno_bar = position_annotation(plot_df,
bg = theme_bgc,