In TokyoExpress/bonanza: Bonanza Creek LTER

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

library(bonanza)
library(tidyverse)

bog <- bonanza::bnz_peatland %>%
          filter(Site == "Bog")

fen <- bonanza::bnz_peatland %>%
          filter(Site == "Fen")

ggplot(data = bog, aes(x = Name, y = Andpol)) + geom_bar(stat="identity")

ggplot(data = bog, aes(x = Name, y = Caraqu)) + geom_bar(stat="identity")

ggplot(data = fen, aes(x = Name, y = Carath)) + geom_bar(stat="identity")

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