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

dadded v2 of barplot layput

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-14 22:56:08 +01:00
parent da8f8d90d4
commit 7c40e13771
7 changed files with 800 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

13
scripts/plotting/plotting_thesis/prominent_effects.R
View file

@ -153,13 +153,20 @@ for (i in unique(str_df$position) ){
# ends with suffix 2 if dups
str_df$effect_type = sub("\\.[0-9]+", "", str_df$effect_type) # cull duplicate effect types that happen when there are exact duplicate values
colnames(str_df)
#================
# for Plots
#================
str_df_short = str_df[, c("mutationinformation","position","sensitivity"
, "effect_type"
, "effect_sign")]
# check
str_df_check = str_df[str_df$position%in%c(24, 32,160, 303, 334 ),]
str_df_check = str_df[str_df$position%in%c(24, 32,160, 303, 334),]
table(str_df$effect_type)
#-------------------------------------
# get df with uniqye position
# get df with unique position
#--------------------------------------
#data[!duplicated(data$x), ]
str_df_plot = str_df[!duplicated(str_df$position),]
@ -234,7 +241,7 @@ table(str_df_plot_cols$colour_map)
#-------------------
# Ligand Affinity
#-------------------
foo = str_df_plot_cols[str_df_plot_cols$colours=="light_salmon",]
foo = str_df_plot_cols[str_df_plot_cols$colours=="yellow",]
all(foo2$effect_sign == 1)
foo1 = str_df_plot_cols[str_df_plot_cols$colours=="bright_salmon",]