Preciso atrasar uma variável da minha db (dCoopCred
). Entretanto, ela não pode misturar o atraso de dois indivíduos (CNPJ
). Gostaria que LAG_Result_ant_desp
fosse Result_ant_desp
em t-1 (período anterior).
Exemplo:
structure(list(CNPJ = c(5834, 5834, 5834, 5834, 5834, 9797, 9797,
9797, 9797, 9797), ano = c(2006, 2007, 2008, 2009, 2010, 2006,
2007, 2008, 2009, 2010), PIB = c(4, 6, 5, 1, 7, 4, 6, 5, 1, 7
), Result_ant_desp = c(5000, 7000, 6000, 2000, 3500, 1500, 2600,
3000, 2100, 3100), LAG_Result_ant_desp = structure(c(9L, 6L,
8L, 7L, 2L, 9L, 1L, 4L, 5L, 3L), .Label = c("1500", "2000", "2100",
"2600", "3000", "5000", "6000", "7000", "N/A"), class = "factor")), class = "data.frame", row.names = c(NA,
-10L))
Consegui atrasar um período usando o pacote Hmisc
e o comando
dCoopCred$LAG_result_ant_desp <- Lag(dCoopCred$result_ant_desp, +1)
Entretanto, apenas esse comando acaba misturando result_ant_desp
de diferentes anos e CNPJ
.
Também estou usando o código
teste <- dCoopCred %>%
distinct(CNPJ, ano, .keep_all = TRUE) %>%
group_by(CNPJ) %>%
mutate(LAG_result_ant_desp = lead(result_ant_desp, n = 1L)) %>%
select(-result_ant_desp) %>%
ungroup() %>%
left_join(dCoopCred, ., by = c("ano", "CNPJ"))
Fez o que eu queria, mas esta gerando outro db, gostara que a variável fosse criada em dCoopCred
dCoopCred <- ...
em vez deteste <- ...
para evitar que outro objeto seja criado?