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

updated plotting_data.R with stability colours as variables

Browse source
This commit is contained in:
Tanushree Tunstall 2020-09-16 11:47:38 +01:00
parent 83deb64e1c
commit 0f6bf3875d
1 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

25
scripts/plotting/plotting_data.R
View file

@ -89,16 +89,39 @@ cat("\nNo. of unique mutational positions:"); cat(length(upos), "\n")
###########################
# extract mutations <10Angstroms
# extract mutations <10Angstroms and symbols
###########################
table(my_df_u$ligand_distance<10)
my_df_u_lig = my_df_u[my_df_u$ligand_distance <10,]
#==================
# Angstroms symbol
#==================
angstroms_symbol = "\u212b"
cat(paste0("There are ", nrow(my_df_u_lig), " sites lying within 10", angstroms_symbol, " of the ligand\n"))
#==================
# Delta symbol
#==================
delta_symbol = "\u0394"; delta_symbol
###########################
# variables for my cols
###########################
mcsm_red2 = "#ae301e" # most negative
mcsm_red1 = "#f8766d"
mcsm_mid = "white" # middle
mcsm_blue1 = "#00bfc4"
mcsm_blue2 = "#007d85" # most positive
########################################################################
# end of data extraction and cleaning for plots #
########################################################################