library(tidyverse) library(purrr) library(zoo) data %>% group_by(group_name) %>% nest() %>% mutate(data = pmap(list(data), ~ mutate(.x, r_mean = lag(rollmean(x = var_name, k = 7, fill = NA, align = "right"))) ) ) %>% unnest(cols = data)
library(tidyverse) library(purrr) library(zoo) data %>% group_by(group_name) %>% nest() %>% mutate(data = pmap(list(data), ~ mutate(.x, r_mean = lag(rollmean(x = var_name, k = 7, fill = NA, align = "right"))) ) ) %>% unnest(cols = data)