#Data visualization comparing Pitchers and Bromeliads in one bar plot
## Creating new data frame using .csv file
Greenhouse_10_OTU <- read_csv("Greenhouse_10_OTU.CSV")
Code to create bar plot
ggplot(data = Greenhouse_10_OTU, mapping = aes(x = reorder(OTU,Occurrences), y = Occurrences, fill = Sample)) +
theme_classic()+
xlab("OTU")+
ylab("Number of Samples")+
ggtitle(label="Presence of Top 10 OTUs in Greenhouse samples")+
scale_fill_manual(values = c("#81ae64","#c7e78b"))+
geom_col()
ordi <- ordinate(mergedtree, method = "PCoA", distance = "Unifrac", weighted = TRUE)
pcoa_pitcher = plot_ordination(mergedtree, ordi, color = "Month", shape = "Molecule", label = "Names")
facet_wrap(~ Plant_type)
#Print it
pcoa_pitcher + geom_point(size = 3)
ordi <- ordinate(mergedtree, method = "PCoA", distance = "Unifrac", weighted = TRUE)
pcoa_pitcher = plot_ordination(mergedtree, ordi, color = "Plant_type", shape = "Molecule", label = "Names")
#Print it
pcoa_pitcher + geom_point(size = 3)
heatmap(d_matrix, Rowv=NA, Colv=NA, cexRow=0.5, cexCol=0.5, col= c("#ccffcc", "#66ff66", "#009933", "#3333ff", "#000033"))
legend(x="bottomright", legend=c("1-100", "101-500", "501-1500", "1500-6000",">6001"), fill=c("#ccffcc", "#66ff66", "#009933", "#3333ff", "#000033"))