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

saving work for logo plots

Browse source
This commit is contained in:
Tanushree Tunstall 2022-01-13 18:53:47 +00:00
parent 7cbd9b4996
commit 344a74a9e1
5 changed files with 24 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

6
scripts/plotting/get_plotting_dfs.R
View file

@ -109,10 +109,10 @@ merged_df3_comp = all_plot_dfs[[4]]
# Data for logoplots
####################################################################
source(paste0(plot_script_path, "logo_data.R"))
#source(paste0(plot_script_path, "logo_data.R"))
s1 = c("\nSuccessfully sourced logo_data.R")
cat(s1)
#s1 = c("\nSuccessfully sourced logo_data.R")
#cat(s1)
####################################################################
# Data for DM OM Plots: Long format dfs

1
scripts/plotting/logo_data.R
View file

@ -7,6 +7,7 @@
#-------------------------
logo_data = merged_df3
#logo_data = merged_df3_comp
#logo_data = merged_df2 # can't be used because of multiple snps
# quick checks
colnames(logo_data)

2
scripts/plotting/logo_plots.R
View file

@ -99,7 +99,7 @@ print(logo_or)
cat("Logo plot with log10 OR as y axis:", plot_logo_logOR)
svg(plot_logo_logOR, width = 30 , height = 6)
logo_logOR = ggseqlogo(wide_df_logor_m
logo_logOR = ggseqlogo(wide_df_logor
, method = "custom"
, seq_type="aa") + ylab("my custom height") +
theme(legend.position = "bottom"