diff --git a/04_Additional_Figs.R b/04_Additional_Figs.R
index 5e243096e80d59a74e642ec1e83b606543a1e38e..95b52d4c059e55456d16f9565c33f8820c36b0be 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) +