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-18 18:07:48 +01:00
parent 093ae0d832
commit 771995d1ab
4 changed files with 33 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

3
scripts/plotting/logo_combined.R
View file

@ -222,7 +222,8 @@ my_df_snp$log10or = log10(my_df_snp$or_mychisq)
logo_data = my_df_snp[, c("position", "mutant_type", "or_mychisq", "log10or")]
logo_data_or = my_df_snp[, c("position", "mutant_type", "or_mychisq")]
wide_df_or <- logo_data_or %>% spread(position, or_mychisq, fill = 0.0)
#wide_df_or <- logo_data_or %>% spread(position, or_mychisq, fill = 0.0)
wide_df_or <- logo_data_or %>% spread(position, or_mychisq, fill = NA)
wide_df_or = as.matrix(wide_df_or)
rownames(wide_df_or) = wide_df_or[,1]