Reprex 1 Practice

[kimberleewong]

mack_creek_lengths <- mack_creek_vertebrates %>% 
  clean_names() %>% 
  select(year:sampledate) %>% 
  filter(section == "CC") %>% 
 mutate(across(where(is.character), tolower)) %>% 
  drop_na(species) %>% 
  group_by(species) %>% 
  summarize(mean_length_cm = mean(length1, na.rm = TRUE),
            sd_length_cm = sd(length1, na.rm = TRUE)) %>% 
  ungroup()
#> Error in mack_creek_vertebrates %>% clean_names() %>% select(year:sampledate) %>% : could not find function "%>%"

^{Created on 2024-08-22 with reprex v2.1.1}

[kimberleewong]

mack_creek_vertebrates %>% 
  clean_names() %>% 
  filter(species == "ONCL") %>% 
  ggplot(aes(x = length1, y = weight)) +
         geom_point(shape = 12, color = "purple") +
         theme_minimal() +
         labs(x = "Cutthroat trout length (cm)",
              y = "Weight (g)")

    #> Error: attempt to use zero-length variable name

<sup>Created on 2024-08-22 with [reprex v2.1.1](https://reprex.tidyverse.org)</sup>