Load libraries and data

library(here)
library(tidyverse)

## data
foragingheight <- read_csv(here("Week_01", "Data", "foraging.height.edit.csv"))

Question 1

How many observations are there of each bird species in each experimental treatment? Make a boxplot or violinplot to show the distribution of foraging heights of each bird species in each experimental treatment. What have you learned so far?