library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.0     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.1     ✔ tibble    3.1.8
✔ lubridate 1.9.2     ✔ tidyr     1.3.0
✔ purrr     1.0.1     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors

tuesdata <- tidytuesdayR::tt_load('2023-05-02')

--- Compiling #TidyTuesday Information for 2023-05-02 ----
--- There are 3 files available ---
--- Starting Download ---


    Downloading file 1 of 3: `plots.csv`
    Downloading file 2 of 3: `species.csv`
    Downloading file 3 of 3: `surveys.csv`

--- Download complete ---

plots <- tuesdata$plots
species <- tuesdata$species
surveys <- tuesdata$surveys

mice_count_by_year <- surveys %>%
  group_by(year) %>%
  count()

ggplot(mice_count_by_year, aes(x= year, y=n))+
  geom_line()+
  ggtitle ("Mice count by year")+
  scale_x_continuous(breaks =seq(1980, 2020,5))

Tidy Tuesday

Bob Ross Paintings