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

added the almost done shiny for barplots subcolours

Browse source
This commit is contained in:
Tanushree Tunstall 2021-06-30 17:20:04 +01:00
parent 374764b136
commit ed2fc016ca
6 changed files with 267 additions and 263 deletions
Download patch file Download diff file Expand all files Collapse all files

2
scripts/plotting/barplots_subcolours_aa_PS.R
View file

@ -132,7 +132,7 @@ setDT(df)[, pos_count := .N, by = .(position)]
table(df$pos_count)
# use group by on this
library(dplyr)
#library(dplyr)
snpsBYpos_df <- df %>%
group_by(position) %>%
summarize(snpsBYpos = mean(pos_count))