Merge pull request #94 from LeandroRitter/main

Update contamination.qmd

Author: jfy133

contamination.qmd

@@ -376,7 +376,7 @@ condition <- rep(c("Sediment/Soil","Skin","aOral","mOral","Unknown"),
 dim(result)[1])
 data <- data.frame(name, condition, value)
 
-library("ggplot2"); library("viridis")
+library("ggplot2")
 ggplot(data, aes(fill=condition, y=value, x=reorder(name,seq(1:length(name))))) +
   geom_bar(position = "fill", stat = "identity") +
   theme(axis.text.x = element_text(angle=90, size = 5, hjust = 1, vjust = 0.5)) +