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

SNP -> SAV for thesis plots

Browse source
This commit is contained in:
Tanushree Tunstall 2023-02-19 17:43:22 +00:00
parent 777d3765cf
commit db7e2912e1
31 changed files with 145 additions and 145 deletions
Download patch file Download diff file Expand all files Collapse all files

6
scripts/functions/bp_subcolours.R
View file

@ -47,7 +47,7 @@ bp_stability_hmap <- function(plot_df = merged_df3
my_yaxts = 10, # y-axis text size
my_pts = 10 # plot-title size
, my_xlab = "Position"
, my_ylab = "No. of nsSNPs"
, my_ylab = "No. of SAVs"
# Custom 2: x-axis: geom tiles ~ lig distance
#, A_xvar_lig = T
@ -75,8 +75,8 @@ bp_stability_hmap <- function(plot_df = merged_df3
# stability values isolated to help with generating column called: 'group'
my_grp = plot_df[[stability_colname]]
# cat( "\nLength of nsSNPs:", length(my_grp)
# , "\nLength of unique values for nsSNPs:", length(unique(my_grp)) )
# cat( "\nLength of SAVs:", length(my_grp)
# , "\nLength of unique values for SAVs:", length(unique(my_grp)) )
#
# Add col: 'group'
plot_df$group = paste0(plot_df[[stability_outcome_colname]], "_", my_grp, sep = "")