knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(alohaal) library(tidyverse) anoles <- ggplot(data = lef_anole, aes(x=HEIGHT, y = Tail)) + geom_point(aes(color = SEASON, shape = SEASON), alpha = 0.8) + labs(title = "Height and Tail Length of Anoles By Season of Data Collection") + xlim(0,25) anoles
sex <- alohaal::lef_anole %>% filter(`SEX/AGE` == "M" | `SEX/AGE` == "F") ggplot(data = sex, aes(x=HEIGHT, y = Tail)) + geom_point(aes(color = `SEX/AGE`, shape = `SEX/AGE`), alpha = 0.8) + labs(title = "Height and Tail Length of Anoles By Sex") + xlim(0,25)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.