Tenho um data.frame com as colunas: cnpj, nome, ano, rop, des, cax, pcld.
Preciso identificar os cnpj que possuem o valor "1" em ao menos uma das colunas rop, des, cax e pcld para todos os anos. Depois disso, identificar os que tiveram descontinuidade nos anos.
Então, como primeiro passo, pensei em transpor o data.frame, para ficar da seguinte maneira:
cnpj | nome | conta | 2014 | 2015 | 2016 | 2017
3243 | teste| rop | 1 | 0 | 0 | 1
3243 | teste| des | 0 | 1 | 0 | 0
3243 | teste| cax | 0 | 0 | 1 | 0
3243 | teste| pcld | 0 | 0 | 0 | 0
33333| loja | rop | 0 | 1 | NA | NA
33333| loja | des | 0 | 0 | NA | NA
33333| loja | cax | 0 | 0 | NA | NA
33333| loja | pcld | 1 | 0 | NA | NA
O cnpj "3243" seria identificado como 'certo'. Ele tem ao menos um valor "1" em todos os anos. E o cnpj "33333", que não possui dados para todos os anos seguintes a 2014, foi descontinuado, ficará com "NA" naquele ano.
Já tentei transpor de várias maneiras, mas sempre da um erro. A última tentativa:
library(magrittr)
dados %>% dplyr::select(CNPJ, nome, ano, rop, des, cax, pcld) %>%
tidyr::pivot_longer(
cols = -c('cnpj', 'nome'),
names_to = 'Conta'
)
Acredito que ao transpor o data.frame, os CNPJ que foram descontinuados ficarão com valor "NA" para o ano sem informação (descontinuado), então eu faria um filtro.
Exemplo de dados:
structure(list(
id = c(1111, 1111, 1111, 1111, 22222,22222, 22222, 22222, 33333, 33333,3243,3243,3243,3243),
name = c("empresa", "empresa", "empresa", "empresa","firma", "firma", "firma", "firma", "loja", "loja","teste","teste","teste","teste"),
year = c(2014, 2015, 2016, 2017, 2014, 2015, 2016, 2017, 2014,2015,2014, 2015, 2016, 2017),
rop = c(1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1),
des = c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0),
cax = c(1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0),
pcld = c(1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0)),
row.names = c(NA,14L), class = "data.frame")
Alguma forma melhor de fazer isso?