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

a massive waste of time

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-22 13:05:53 +01:00
parent 8d6c148fff
commit 4147a6b90f
3 changed files with 726 additions and 620 deletions
Download patch file Download diff file Expand all files Collapse all files

29
scripts/plotting/get_plotting_dfs.R
View file

@ -60,8 +60,8 @@ pd_df = plotting_data(mcsm_df
my_df = pd_df[[1]]
my_df_u = pd_df[[2]] # this forms one of the input for combining_dfs_plotting()
max_ang <- round(max(my_df_u[LigDist_colname]))
min_ang <- round(min(my_df_u[LigDist_colname]))
max_ang <- round(max(my_df_u[[LigDist_colname]]))
min_ang <- round(min(my_df_u[[LigDist_colname]]))
cat("\nLigand distance colname:", LigDist_colname
, "\nThe max distance", gene, "structure df" , ":", max_ang, "\u212b"
@ -128,6 +128,11 @@ geneL_normal = c("pnca")
geneL_na = c("gid", "rpob")
geneL_ppi2 = c("alr", "embb", "katg", "rpob")
# geneL_normal = c("pnca")
# geneL_both = c("rpob")
# geneL_ppi2 = c("alr", "embb", "katg")
# geneL_na = c("gid")
all_dm_om_df = dm_om_wf_lf_data(df = merged_df3, gene = gene)
wf_duet = all_dm_om_df[['wf_duet']]
@ -158,15 +163,27 @@ lf_provean = all_dm_om_df[['lf_provean']]
wf_dist_gen = all_dm_om_df[['wf_dist_gen']]
lf_dist_gen = all_dm_om_df[['lf_dist_gen']]
# ppi2 genes
if (tolower(gene)%in%geneL_ppi2){
wf_mcsm_ppi2 = all_dm_om_df[['wf_mcsm_ppi2']]
lf_mcsm_ppi2 = all_dm_om_df[['lf_mcsm_ppi2']]
}
# na genes
if (tolower(gene)%in%geneL_na){
wf_mcsm_na = all_dm_om_df[['wf_mcsm_na']]
lf_mcsm_na = all_dm_om_df[['lf_mcsm_na']]
}
if (tolower(gene)%in%geneL_ppi2){
wf_mcsm_ppi2 = all_dm_om_df[['wf_mcsm_ppi2']]
lf_mcsm_ppi2 = all_dm_om_df[['lf_mcsm_ppi2']]
}
# both ppi2+na genes:: NOT NEEDED Here as its is handled by the two ifs above
# if (tolower(gene)%in%geneL_both){
# wf_mcsm_ppi2 = all_dm_om_df[['wf_mcsm_ppi2']]
# lf_mcsm_ppi2 = all_dm_om_df[['lf_mcsm_ppi2']]
#
# wf_mcsm_na = all_dm_om_df[['wf_mcsm_na']]
# lf_mcsm_na = all_dm_om_df[['lf_mcsm_na']]
# }
s2 = c("\nSuccessfully sourced other_plots_data.R")
cat(s2)