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

added active site positions to all config.R

Browse source
This commit is contained in:
Tanushree Tunstall 2022-02-03 18:02:27 +00:00
parent 04cddbbf2b
commit 7a14655ecb
7 changed files with 78 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

42
scripts/plotting/consurf_plot.R
View file

@ -1,4 +1,4 @@
myColors1 = c("0" = "yellow2"
consurf_palette1 = c("0" = "yellow2"
, "1" = "cyan1"
, "2" = "steelblue2"
, "3" = "cadetblue2"
@ -9,8 +9,7 @@ myColors1 = c("0" = "yellow2"
, "8" = "maroon"
, "9" = "violetred2")
myColors2 = c("0" = "yellow2"
consurf_palette2 = c("0" = "yellow2"
, "1" = "forestgreen"
, "2" = "seagreen3"
, "3" = "palegreen1"
@ -22,10 +21,21 @@ myColors2 = c("0" = "yellow2"
, "9" = "darkorchid4")
#myColors <- colorRampPalette(c("cyan", "violetred4"))(9)
#myCOL <- colorRampPalette(c("yellow2", "palegreen1", "darkorchid4"))(10)
#plot(1:100, col = myCOL, pch = 19, cex = 2)
#myColors <- scale_color_brewer(palette = "Cyan-Magenta")
breaks <- levels(as.factor(mtcars$cyl))
colours <- ifelse(breaks == 4, "red", "blue")
consurf_cols = consurf_palette1
consurf_cols = consurf_palette2
#consurf_cols = myCOL
consurf_col_labs = c("Insufficient Data"
, "Variable"
, "2", "3", "4", "5"
, "6", "7", "8", "Conserved")
#breaks <- levels(as.factor(mtcars$cyl))
#colours <- ifelse(breaks == 4, "red", "blue")
aa_position_colname = "position"
length(unique(merged_df3[[aa_position_colname]]))
@ -42,15 +52,6 @@ bar[['lab_bg']] = ifelse(bar[[aa_position_colname]]%in%rna_bind_aa_pos
head(bar[[aa_position_colname]])
head(bar[['lab_bg']])
#bar2 = as.data.frame(cbind(bar[[aa_position]], bar[['lab_bg']]) )
#geom_tile(aes(,-0.8, width = 0.95, height = 0.85)
# , fill = df$lab_bg) +
#geom_tile(aes(,-1.2, width = 0.95, height = -0.2)
# , fill = df$lab_bg2) +
my_xlim = length(unique(bar$position)); my_xlim
ymin = min(bar$consurf_score)
@ -64,8 +65,9 @@ g = ggplot(bar, aes(x = factor(position)
, ylim = c(ymin, ymax)
, clip = "off") +
geom_point() +
#scale_colour_manual( values = myColors1) +
scale_colour_manual( values = myColors2) +
scale_colour_manual( values = consurf_cols
, labels = consurf_col_labs
) +
geom_errorbar(aes(ymin = consurf_ci_lower, ymax = consurf_ci_upper))
g0 = g + geom_tile(aes(,-2, width = 0.95, height = -0.2)
@ -93,11 +95,9 @@ g1 = g0 + theme( axis.text.x = element_text(size = 10
#, direction = "horizontal"
)) +
labs(title = ""
, x = "Position"
, y = "Consurf_score")
, x = "Wild-type position"
, y = "Consurf score")
g1
##########################################