От l oop в R до go через имена переменных и создание новых переменных с запаздыванием

Question

Привет, я пытаюсь создать новые переменные с задержкой, основанные на существующих переменных в al oop. Вот моя неудачная попытка:

varlist = c("retail", "grocery", "parks", "transit", "work", "residential")
for (x in varlist) {
  cases %<>% 
    mutate(x7 = lag(x,n=7L))
}

, где код сгенерирует «retail7», «grocery7» и т. Д. c. Проблема, кажется, возникает из-за того, что когда я говорю X7, я имею в виду «retail7» или другую переменную 7, но он не знает, что с этим делать, потому что это строка или что-то в этом роде

Спасибо

Answer 1

Для этого вам не нужно oop. Используя некоторые случайные данные примера, это может быть достигнуто с помощью dplyr::mutate_at, например:

library(dplyr)

cases <- data.frame(state = rep(c("A", "B"), 10), retail = runif(20), grocery = runif(20), parks = runif(20), transit = runif(20), work = runif(20), residential = runif(20) )

cases <- cases %>%
  arrange(state) %>% 
  group_by(state) %>% 
  mutate_at(vars("retail", "grocery", "parks", "transit", "work", "residential"), list(`7` = ~ lag(.x, n = 7L)))
head(cases)   
#> # A tibble: 6 x 13
#> # Groups:   state [1]
#>   state retail grocery parks transit  work residential retail_7 grocery_7
#>   <chr>  <dbl>   <dbl> <dbl>   <dbl> <dbl>       <dbl>    <dbl>     <dbl>
#> 1 A     0.113   0.989  0.805   0.937 0.966       0.800       NA        NA
#> 2 A     0.981   0.755  0.274   0.491 0.191       0.897       NA        NA
#> 3 A     0.763   0.0676 0.780   0.249 0.363       0.592       NA        NA
#> 4 A     0.758   0.905  0.236   0.556 0.202       0.842       NA        NA
#> 5 A     0.0250  0.681  0.868   0.204 0.194       0.692       NA        NA
#> 6 A     0.592   0.404  0.509   0.478 0.692       0.128       NA        NA
#> # ... with 4 more variables: parks_7 <dbl>, transit_7 <dbl>, work_7 <dbl>,
#> #   residential_7 <dbl>