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

saving work

Browse source
This commit is contained in:
Tanushree Tunstall 2020-09-09 18:56:59 +01:00
parent 5025e47983
commit e570454cf2
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
scripts/plotting/barplots_subcolours_aa_PS.R
View file

@ -18,7 +18,6 @@ getwd()
library(ggplot2) library(ggplot2)
library(data.table) library(data.table)
source("barplot_colour_function.R") source("barplot_colour_function.R")
#source("subcols_axis.R")
source("subcols_axis.R") source("subcols_axis.R")
# should return the following dfs, directories and variables # should return the following dfs, directories and variables
@ -160,9 +159,7 @@ min(df$duet_scaled)
max(df$duet_scaled) max(df$duet_scaled)
# sanity checks # sanity checks
# very important!!!!
tapply(df$duet_scaled, df$duet_outcome, min) tapply(df$duet_scaled, df$duet_outcome, min)
tapply(df$duet_scaled, df$duet_outcome, max) tapply(df$duet_scaled, df$duet_outcome, max)
# My colour FUNCTION: based on group and subgroup # My colour FUNCTION: based on group and subgroup
@ -240,7 +237,7 @@ outPlot = g +
, axis.ticks.x = element_blank()) + , axis.ticks.x = element_blank()) +
labs(title = "" labs(title = ""
#title = my_title #title = my_title
, x = "position" , x = "Position"
, y = "Frequency") , y = "Frequency")
print(outPlot) print(outPlot)