knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(alohaal) library(tidyverse) sbc_abundance$SIZE <- replace(sbc_abundance$SIZE, sbc_abundance$SIZE < 0, NA) hist <- ggplot(data = sbc_abundance, aes(x = SIZE)) + geom_histogram(alpha = 0.5) + theme_minimal() + xlim(0, 100) + xlab("Size of Fish(cm)") + ylab("Count") + labs(title = "Count of Fish Sizes at SBC LTER") hist
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.