diff options
| author | Christoph Helma <helma@in-silico.ch> | 2021-02-17 23:11:49 +0100 |
|---|---|---|
| committer | Christoph Helma <helma@in-silico.ch> | 2021-02-17 23:11:49 +0100 |
| commit | 9d7b4aaff715e731ba81bf131dfaa9de5a9d0fdd (patch) | |
| tree | 7a84e5a702a1e0cb8d10c8512da822b2b8c9a5c1 /scripts/pa-groups.R | |
| parent | 3bfc5bfb57e8f130b1b3d9a90fc34744278ef6b5 (diff) | |
cleanup, scripts adjusted, improved figures
Diffstat (limited to 'scripts/pa-groups.R')
| -rwxr-xr-x | scripts/pa-groups.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/pa-groups.R b/scripts/pa-groups.R index deb9c1c..f2c4687 100755 --- a/scripts/pa-groups.R +++ b/scripts/pa-groups.R @@ -6,6 +6,6 @@ for (i in c(2:10)) { cols <- append(c(15,17),c(19:28)) group <- data[data[i] == 1,cols] freq <- 100*colSums(group,na.rm=TRUE)/colSums(!is.na(group)) - plot <- ggplot(data.frame(freq),aes(x=names(data)[cols],y=freq)) + geom_bar(stat="identity") + ylab("% mutagenic") + xlab(name) + ylim(c(0,100)) + plot <- ggplot(data.frame(freq),aes(x=names(data)[cols],y=freq)) + geom_bar(stat="identity") + ylab("% mutagenic") + xlab(element_blank()) + ylim(c(0,100)) + theme(axis.text.x = element_text(angle=90)) ggsave(paste("figures/",name,".png",sep="")) } |