Show the code
# data source: https://www.transtats.bts.gov/Data_Elements.aspx?Data=1
<- read_csv("data/american_passengers_5_2_2024.csv",
american show_col_types = F, skip=1)|>
filter(Month != "TOTAL") |>
mutate(date_som = ym(paste(Year, Month)),
Date = ceiling_date(date_som, "month")-1,
Total = (TOTAL/1000000) |> round(2)) |>
select(Date, Total) |>
glimpse(width=60)
Rows: 256
Columns: 2
$ Date <date> 2002-10-31, 2002-11-30, 2002-12-31, 2003-01…
$ Total <dbl> 7.75, 7.09, 7.90, 7.01, 6.36, 7.63, 7.10, 7.…
Show the code
<- american |> # post_pandemic data
american_pp filter(Date >= "2021-06-01") |>
glimpse(width=60)
Rows: 32
Columns: 2
$ Date <date> 2021-06-30, 2021-07-31, 2021-08-31, 2021-09…
$ Total <dbl> 11.92, 12.87, 11.20, 10.00, 11.53, 11.79, 12…