From 36702027cfda20221dab06f7b6b8d923a2f8edf8 Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Thu, 12 Nov 2020 12:26:33 +0100
Subject: [PATCH] Minor graphical changes to 04
---
04_Additional_Figs.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/04_Additional_Figs.R b/04_Additional_Figs.R
index 5e24309..95b52d4 100644
--- a/04_Additional_Figs.R
+++ b/04_Additional_Figs.R
@@ -197,7 +197,7 @@ create.panel2 <- function(xx, i, tit){
filter(metric %in% c("richness", "alpha")) %>%
mutate(with=ifelse(!is.na(with), paste0("OTU Rich (", with, ")"), 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),
geom="line",position="identity") +
scale_color_brewer(palette="Dark2", name=NULL) +
--
GitLab