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

modified bp with option for adding stats and boxplplots. Moved old one to redundant

Browse source
This commit is contained in:
Tanushree Tunstall 2021-09-02 12:50:24 +01:00
parent c8e21b928c
commit 2c65bb25d8
8 changed files with 443 additions and 102 deletions
Download patch file Download diff file Expand all files Collapse all files

25
scripts/plotting/get_plotting_dfs.R
View file

@ -86,8 +86,10 @@ all_plot_dfs = combining_dfs_plotting(my_df_u
, lig_dist_colname = LigDist_colname
, lig_dist_cutoff = LigDist_cutoff)
merged_df2 = all_plot_dfs[[1]]
merged_df3 = all_plot_dfs[[2]]
merged_df2 = all_plot_dfs[[1]]
merged_df3 = all_plot_dfs[[2]]
merged_df2_comp = all_plot_dfs[[3]]
merged_df3_comp = all_plot_dfs[[4]]
#======================================================================
# read other files
infilename_dynamut = paste0("~/git/Data/", drug, "/output/dynamut_results/", gene
@ -98,10 +100,15 @@ infilename_dynamut2 = paste0("~/git/Data/", drug, "/output/dynamut_results/dyna
infilename_mcsm_na = paste0("~/git/Data/", drug, "/output/mcsm_na_results/", gene
, "_complex_mcsm_na_norm.csv")
infilename_mcsm_f_snps <- paste0("~/git/Data/", drug, "/output/", gene
, "_mcsm_formatted_snps.csv")
dynamut_df = read.csv(infilename_dynamut)
dynamut2_df = read.csv(infilename_dynamut2)
mcsm_na_df = read.csv(infilename_mcsm_na)
mcsm_f_snps = read.csv(infilename_mcsm_f_snps, header = F)
names(mcsm_f_snps) = "mutationinformation"
####################################################################
# Data for subcols barplot (~heatmpa)
@ -430,11 +437,17 @@ if (nrow(corr_ps_df3) == nrow(merged_df3) && nrow(merged_df3_comp) == check1) {
, "\nGot: ", check1)
}
rm(foo)
####################################################################
# Data for DM OM Plots: Long format dfs
####################################################################
source("other_plots_data.R")
########################################################################
# End of script
########################################################################
rm(foo)
cat("\n===================================================\n"
cat("\n######################################################\n"
, "\nSuccessful: get_plotting_dfs.R worked!"
, "\n====================================================")
, "\n###################################################\n")