Tenho uma base de dados da seguinte forma:
CNPJ data dataquebra alto
2222 201603 201711 s
2222 201511 0 s
2222 201702 201711 s
2222 201704 201711 s
3333 201601 201711 s
3333 201509 0 s
3333 201512 0 s
3333 201607 201711 s
3333 201706 201711 s
1111 201701 201711 s
4444 201503 201605 s
4444 201503 201605 s
9999 201605 201712 s
9999 201511 0 s
9999 201704 201712 s
9999 201603 201712 s
Preciso filtrar os valores que a variável alto
está como s
. Desejo que todos os valores de dataquebra
para cada CNPJ
sejam iguais. Mas percebam que alguns destes valores são iguais a zero.
Assim, substituir as ocorrências de dataquebra
que sejam iguais a 0 pelo outro valor que não seja 0 nessa variável.
Pensei em usar o dplyr
e comecei da seguinte forma:
library(dplyr)
dados<-dados %>%
group_by(CNPJ) %>%
filter(alto=="s") %>%
mutate(x_lag = lag(dataquebra, order_by = data))
dados<-dados %>%
group_by(CNPJ) %>%
filter(alto=="s") %>%
mutate(x_lead = lead(dataquebra, order_by = data))
dados$dataquebra<-ifelse(dados$dataquebra==0 & !is.na(dados$x_lag),
dados$x_lag, dados$dataquebra)
dados$dataquebra<-ifelse(dados$dataquebra==0 & !is.na(dados$x_lead),
dados$x_lead, dados$dataquebra)
Mas por algum motivo não deu certo.