data-raw/monthly_sightings.R

In asbates/ufo.sightings: UFO Sightings Dashboard

# prepares data set for monthly sightings in us over time

library(tidyverse)
library(lubridate)
library(tsibble)

sightings <- read_csv("data-raw/sightings.csv")

monthly_sightings <- sightings %>%
  select(-state) %>%
  mutate(
    date = lubridate::floor_date(date, unit = "month")
  ) %>%
  count(date, name = "sightings")

# fill implicit missing
# need to temporarily add a year, month variable so tsibble recognizes
#  the frequency
monthly_sightings <- monthly_sightings %>%
  mutate(
    yearmon = tsibble::yearmonth(date)
  ) %>%
  tsibble::as_tsibble(index = yearmon) %>%
  tsibble::fill_gaps(.full = TRUE) %>%
  mutate(
    date = lubridate::as_date(yearmon),
    year = lubridate::year(date),
    month = lubridate::month(date, label = TRUE)
  ) %>%
  as_tibble() %>%
  select(
    -yearmon
  )


usethis::use_data(monthly_sightings, overwrite = TRUE)