Commit 270b1807 authored by Sebastien Theil's avatar Sebastien Theil
Browse files

modify legend position

parent 83d2e38e
...@@ -18,7 +18,7 @@ alphaPlot <- function(data = data, col1 = "", col2 = "", measures = c("Shannon") ...@@ -18,7 +18,7 @@ alphaPlot <- function(data = data, col1 = "", col2 = "", measures = c("Shannon")
p <- p + ggtitle('Alpha diversity indexes') + geom_boxplot(alpha = 1, outlier.shape = NA) + p <- p + ggtitle('Alpha diversity indexes') + geom_boxplot(alpha = 1, outlier.shape = NA) +
theme_bw() + theme_bw() +
theme(axis.text.x = element_text(angle = 45, hjust=1), theme(axis.text.x = element_text(angle = 45, hjust=1),
legend.position = "none",axis.text=element_text(size=15), legend.position = "right",axis.text=element_text(size=15),
axis.title=element_text(size=16,face="bold"), axis.title=element_text(size=16,face="bold"),
strip.text.x = element_text(size = 18,face="bold"), strip.text.x = element_text(size = 18,face="bold"),
title=element_text(size=16,face="bold")) title=element_text(size=16,face="bold"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment