Skip to content
Snippets Groups Projects
Commit 36702027 authored by Francesco Sabatini's avatar Francesco Sabatini
Browse files

Minor graphical changes to 04

parent 6150554e
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
04_Additional_Figs.R
+ 1
− 1
View file @ 36702027
...@@ -197,7 +197,7 @@ create.panel2 <- function(xx, i, tit){ ...@@ -197,7 +197,7 @@ create.panel2 <- function(xx, i, tit){
filter(metric %in% c("richness", "alpha")) %>% filter(metric %in% c("richness", "alpha")) %>%
mutate(with=ifelse(!is.na(with), paste0("OTU Rich (", with, ")"), with)) %>% mutate(with=ifelse(!is.na(with), paste0("OTU Rich (", with, ")"), with)) %>%
mutate(with=ifelse(is.na(with), "Eq. OTU (mean)", with))) + mutate(with=ifelse(is.na(with), "Eq. OTU (mean)", with))) +
geom_density(aes(value, group=with, col=with), show.legend=FALSE)+ geom_density(aes(value, group=with, col=with), alpha=0.7, show.legend=FALSE)+
stat_density(aes(x=value, colour=with), stat_density(aes(x=value, colour=with),
geom="line",position="identity") + geom="line",position="identity") +
scale_color_brewer(palette="Dark2", name=NULL) + scale_color_brewer(palette="Dark2", name=NULL) +
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment