In TokyoExpress/bonanza: Bonanza Creek LTER

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(bonanza)
library(tidyverse)

reef <- bonanza::sbc_reef

ggplot(reef, aes(x = TRANSECT)) +
  geom_histogram(aes(color = SITE, fill = SITE),
                 position = "identity", bins = 50, alpha=I(0.3)) +
  scale_color_manual(values = c("#00AFBB", "#E7B800", "#FADB7D", "#E38566", "#F68FFF")) +
  scale_fill_manual(values = c("#00AFBB", "#E7B800", "#FADB7D", "#E38566", "#F68FFF")) +
  ggtitle("Histogram of Size(mm) by Site")

TokyoExpress/bonanza documentation built on March 24, 2021, 2:21 a.m.