Skip to content

Instantly share code, notes, and snippets.

@njtierney
Created August 9, 2022 08:03
Show Gist options
  • Save njtierney/56e09a45065cbc9f4e643c757562fb5e to your computer and use it in GitHub Desktop.
Save njtierney/56e09a45065cbc9f4e643c757562fb5e to your computer and use it in GitHub Desktop.
library(tidyverse)
library(clock)

dat_cov <- expand_grid(
    year = 2021,
    month = 1:3,
    id = LETTERS[1:3]
  ) |>
  mutate(
    date = ISOdate(year = year, month = month, day = 1),
    long = runif(n()),
    lat = runif(n()),
    temp = rpois(n = n(), 25),
    rainfall = runif(n = n())
  ) |> 
  select(-year,
         -month) |> 
  mutate(lag_date = add_months(x = date, 
                               n = -1),
         .after = date)

dat_lookup <- expand_grid(
  year = 2020:2021,
  month = 1:12,
  id = LETTERS[1:3]
) |>
  mutate(
    date = ISOdate(year = year, month = month, day = 1),
    temp = rpois(n = n(), 25),
    rainfall = runif(n = n())
  ) |> 
  select(-year,
         -month)

dat_lookup
#> # A tibble: 72 × 4
#>    id    date                 temp rainfall
#>    <chr> <dttm>              <int>    <dbl>
#>  1 A     2020-01-01 12:00:00    14   0.585 
#>  2 B     2020-01-01 12:00:00    24   0.142 
#>  3 C     2020-01-01 12:00:00    29   0.464 
#>  4 A     2020-02-01 12:00:00    15   0.852 
#>  5 B     2020-02-01 12:00:00    27   0.618 
#>  6 C     2020-02-01 12:00:00    21   0.688 
#>  7 A     2020-03-01 12:00:00    27   0.0708
#>  8 B     2020-03-01 12:00:00    22   0.485 
#>  9 C     2020-03-01 12:00:00    26   0.746 
#> 10 A     2020-04-01 12:00:00    24   0.986 
#> # … with 62 more rows
dat_cov
#> # A tibble: 9 × 7
#>   id    date                lag_date             long    lat  temp rainfall
#>   <chr> <dttm>              <dttm>              <dbl>  <dbl> <int>    <dbl>
#> 1 A     2021-01-01 12:00:00 2020-12-01 12:00:00 0.761 0.855     30   0.441 
#> 2 B     2021-01-01 12:00:00 2020-12-01 12:00:00 0.684 0.970     31   0.961 
#> 3 C     2021-01-01 12:00:00 2020-12-01 12:00:00 0.947 0.436     24   0.573 
#> 4 A     2021-02-01 12:00:00 2021-01-01 12:00:00 0.735 0.168     33   0.854 
#> 5 B     2021-02-01 12:00:00 2021-01-01 12:00:00 0.540 0.0866    28   0.0777
#> 6 C     2021-02-01 12:00:00 2021-01-01 12:00:00 0.575 0.0345    29   0.230 
#> 7 A     2021-03-01 12:00:00 2021-02-01 12:00:00 0.123 0.233     32   0.880 
#> 8 B     2021-03-01 12:00:00 2021-02-01 12:00:00 0.238 0.0780    25   0.0198
#> 9 C     2021-03-01 12:00:00 2021-02-01 12:00:00 0.482 0.319     21   0.272

add_months(x = dat_cov$date[1], n = -1)
#> [1] "2020-12-01 12:00:00 GMT"

Created on 2022-08-09 by the reprex package (v2.0.1)

Session info
sessioninfo::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#>  setting  value
#>  version  R version 4.2.0 (2022-04-22)
#>  os       macOS Monterey 12.3.1
#>  system   aarch64, darwin20
#>  ui       X11
#>  language (EN)
#>  collate  en_AU.UTF-8
#>  ctype    en_AU.UTF-8
#>  tz       Australia/Perth
#>  date     2022-08-09
#>  pandoc   2.18 @ /Applications/RStudio.app/Contents/MacOS/quarto/bin/tools/ (via rmarkdown)
#> 
#> ─ Packages ───────────────────────────────────────────────────────────────────
#>  package     * version    date (UTC) lib source
#>  assertthat    0.2.1      2019-03-21 [1] CRAN (R 4.2.0)
#>  backports     1.4.1      2021-12-13 [1] CRAN (R 4.2.0)
#>  broom         0.8.0      2022-04-13 [1] CRAN (R 4.2.0)
#>  cellranger    1.1.0      2016-07-27 [1] CRAN (R 4.2.0)
#>  cli           3.3.0.9000 2022-06-15 [1] Github (r-lib/cli@31a5db5)
#>  clock       * 0.6.0      2021-12-02 [1] CRAN (R 4.2.0)
#>  colorspace    2.0-3      2022-02-21 [1] CRAN (R 4.2.0)
#>  crayon        1.5.1      2022-03-26 [1] CRAN (R 4.2.0)
#>  DBI           1.1.2      2021-12-20 [1] CRAN (R 4.2.0)
#>  dbplyr        2.1.1      2021-04-06 [1] CRAN (R 4.2.0)
#>  digest        0.6.29     2021-12-01 [1] CRAN (R 4.2.0)
#>  dplyr       * 1.0.9      2022-04-28 [1] CRAN (R 4.2.0)
#>  ellipsis      0.3.2      2021-04-29 [1] CRAN (R 4.2.0)
#>  evaluate      0.15       2022-02-18 [1] CRAN (R 4.2.0)
#>  fansi         1.0.3      2022-03-24 [1] CRAN (R 4.2.0)
#>  fastmap       1.1.0      2021-01-25 [1] CRAN (R 4.2.0)
#>  forcats     * 0.5.1      2021-01-27 [1] CRAN (R 4.2.0)
#>  fs            1.5.2      2021-12-08 [1] CRAN (R 4.2.0)
#>  generics      0.1.2      2022-01-31 [1] CRAN (R 4.2.0)
#>  ggplot2     * 3.3.6      2022-05-03 [1] CRAN (R 4.2.0)
#>  glue          1.6.2      2022-02-24 [1] CRAN (R 4.2.0)
#>  gtable        0.3.0      2019-03-25 [1] CRAN (R 4.2.0)
#>  haven         2.5.0      2022-04-15 [1] CRAN (R 4.2.0)
#>  highr         0.9        2021-04-16 [1] CRAN (R 4.2.0)
#>  hms           1.1.1      2021-09-26 [1] CRAN (R 4.2.0)
#>  htmltools     0.5.2      2021-08-25 [1] CRAN (R 4.2.0)
#>  httr          1.4.3      2022-05-04 [1] CRAN (R 4.2.0)
#>  jsonlite      1.8.0      2022-02-22 [1] CRAN (R 4.2.0)
#>  knitr         1.39       2022-04-26 [1] CRAN (R 4.2.0)
#>  lifecycle     1.0.1      2021-09-24 [1] CRAN (R 4.2.0)
#>  lubridate     1.8.0      2021-10-07 [1] CRAN (R 4.2.0)
#>  magrittr      2.0.3      2022-03-30 [1] CRAN (R 4.2.0)
#>  modelr        0.1.8      2020-05-19 [1] CRAN (R 4.2.0)
#>  munsell       0.5.0      2018-06-12 [1] CRAN (R 4.2.0)
#>  pillar        1.7.0      2022-02-01 [1] CRAN (R 4.2.0)
#>  pkgconfig     2.0.3      2019-09-22 [1] CRAN (R 4.2.0)
#>  purrr       * 0.3.4      2020-04-17 [1] CRAN (R 4.2.0)
#>  R.cache       0.15.0     2021-04-30 [1] CRAN (R 4.2.0)
#>  R.methodsS3   1.8.1      2020-08-26 [1] CRAN (R 4.2.0)
#>  R.oo          1.24.0     2020-08-26 [1] CRAN (R 4.2.0)
#>  R.utils       2.11.0     2021-09-26 [1] CRAN (R 4.2.0)
#>  R6            2.5.1      2021-08-19 [1] CRAN (R 4.2.0)
#>  readr       * 2.1.2      2022-01-30 [1] CRAN (R 4.2.0)
#>  readxl        1.4.0      2022-03-28 [1] CRAN (R 4.2.0)
#>  reprex        2.0.1      2021-08-05 [1] CRAN (R 4.2.0)
#>  rlang         1.0.4      2022-07-12 [1] CRAN (R 4.2.0)
#>  rmarkdown     2.14       2022-04-25 [1] CRAN (R 4.2.0)
#>  rstudioapi    0.13       2020-11-12 [1] CRAN (R 4.2.0)
#>  rvest         1.0.2      2021-10-16 [1] CRAN (R 4.2.0)
#>  scales        1.2.0      2022-04-13 [1] CRAN (R 4.2.0)
#>  sessioninfo   1.2.2      2021-12-06 [1] CRAN (R 4.2.0)
#>  stringi       1.7.6      2021-11-29 [1] CRAN (R 4.2.0)
#>  stringr     * 1.4.0      2019-02-10 [1] CRAN (R 4.2.0)
#>  styler        1.7.0      2022-03-13 [1] CRAN (R 4.2.0)
#>  tibble      * 3.1.7      2022-05-03 [1] CRAN (R 4.2.0)
#>  tidyr       * 1.2.0      2022-02-01 [1] CRAN (R 4.2.0)
#>  tidyselect    1.1.2      2022-02-21 [1] CRAN (R 4.2.0)
#>  tidyverse   * 1.3.1      2021-04-15 [1] CRAN (R 4.2.0)
#>  tzdb          0.3.0      2022-03-28 [1] CRAN (R 4.2.0)
#>  utf8          1.2.2      2021-07-24 [1] CRAN (R 4.2.0)
#>  vctrs         0.4.1      2022-04-13 [1] CRAN (R 4.2.0)
#>  withr         2.5.0      2022-03-03 [1] CRAN (R 4.2.0)
#>  xfun          0.31       2022-05-10 [1] CRAN (R 4.2.0)
#>  xml2          1.3.3      2021-11-30 [1] CRAN (R 4.2.0)
#>  yaml          2.3.5      2022-02-21 [1] CRAN (R 4.2.0)
#> 
#>  [1] /Library/Frameworks/R.framework/Versions/4.2-arm64/Resources/library
#> 
#> ──────────────────────────────────────────────────────────────────────────────
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment