41 lines
1.2 KiB
R
41 lines
1.2 KiB
R
setwd("~/git/LSHTM_analysis/scripts/plotting/functions")
|
|
getwd()
|
|
|
|
# =================
|
|
# Test function
|
|
# ==================
|
|
source("../plotting_data.R")
|
|
infile = "/home/tanu/git/Data/streptomycin/output/gid_comb_stab_struc_params.csv"
|
|
pd_df = plotting_data(infile)
|
|
my_df = pd_df[[1]]
|
|
my_df_u = pd_df[[2]]
|
|
my_df_u_lig = pd_df[[3]]
|
|
dup_muts = pd_df[[4]]
|
|
|
|
# ------------------------------
|
|
# barplot for mscm stability
|
|
# ------------------------------
|
|
stability_count_bp(plotdf = my_df_u
|
|
, df_colname = "duet_outcome"
|
|
, leg_title = "DUET outcome")
|
|
|
|
# ------------------------------
|
|
# barplot for ligand affinity
|
|
# ------------------------------
|
|
stability_count_bp(plotdf = my_df_u_lig
|
|
, df_colname = "ligand_outcome"
|
|
, leg_title = "Ligand outcome"
|
|
, bp_plot_title = "Sites < 10 Ang of ligand"
|
|
)
|
|
|
|
# ------------------------------
|
|
# barplot for nssnp site count: all
|
|
# ------------------------------
|
|
site_snp_count_bp(plotdf = my_df_u
|
|
, df_colname = "position")
|
|
|
|
# ------------------------------
|
|
# barplot for nssnp site count: within 10 Ang
|
|
# ------------------------------
|
|
site_snp_count_bp(plotdf = my_df_u_lig
|
|
, df_colname = "position")
|