PenguinTest

Code Snippet A: Palmer Penguin Species

# frequency table
penguins %>%
  count(species)

## # A tibble: 3 × 2
##   species       n
##   <fct>     <int>
## 1 Adelie      152
## 2 Chinstrap    68
## 3 Gentoo      124

# bar chart

penguins %>%
  ggplot(aes(x=species))+
  geom_bar(fill="steelblue")+
  labs(x=NULL, y="Count", title="Palmer Penguins by species")

Code Snippet B: Bill Length

# five-number summary for bill length
penguins %>%
  summarize(
    min=min(bill_length_mm, na.rm=TRUE),
    q1 = quantile(bill_length_mm, 0.25, na.rm=TRUE),
    med = median(bill_length_mm, na.rm=TRUE),
    q3 = quantile(bill_length_mm, 0.75, na.rm=TRUE),
    max=max(bill_length_mm, na.rm=TRUE)
  )

## # A tibble: 1 × 5
##     min    q1   med    q3   max
##   <dbl> <dbl> <dbl> <dbl> <dbl>
## 1  32.1  39.2  44.4  48.5  59.6

# Boxplot

penguins %>%
  ggplot(aes(x=" ", y=bill_length_mm))+
  geom_boxplot(fill="tomato") + 
  labs(y = "Bill length (mm)", x=NULL, title="Distribution of penguin bill lengths") +
  coord_flip()