## Warning: package 'dplyr' was built under R version 4.3.3
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
## Warning: package 'ggplot2' was built under R version 4.3.3
## Warning: package 'tidyr' was built under R version 4.3.3
## Warning: package 'shiny' was built under R version 4.3.3
## Warning: package 'plotly' was built under R version 4.3.3
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
## Warning: package 'data.table' was built under R version 4.3.3
##
## Attaching package: 'data.table'
## The following objects are masked from 'package:dplyr':
##
## between, first, last
## Warning: package 'readr' was built under R version 4.3.3
conspb_jan <- read_delim("pda-024-icb-PB-2024_01.csv",
delim = ";", escape_double = FALSE, trim_ws = TRUE)
## Rows: 176363 Columns: 22
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (17): ID_CMPT_MOVEL, CD_OPERADORA, NM_RAZAO_SOCIAL, NR_CNPJ, MODALIDADE...
## dbl (4): CD_MUNICIPIO, QT_BENEFICIARIO_ATIVO, QT_BENEFICIARIO_ADERIDO, QT_...
## date (1): DT_CARGA
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
conspb_fev <- read_delim("pda-024-icb-PB-2024_02.csv",
delim = ";", escape_double = FALSE, trim_ws = TRUE)
## Rows: 176441 Columns: 22
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (17): ID_CMPT_MOVEL, CD_OPERADORA, NM_RAZAO_SOCIAL, NR_CNPJ, MODALIDADE...
## dbl (4): CD_MUNICIPIO, QT_BENEFICIARIO_ATIVO, QT_BENEFICIARIO_ADERIDO, QT_...
## date (1): DT_CARGA
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
conspb_mar <- read_delim("pda-024-icb-PB-2024_03.csv",
delim = ";", escape_double = FALSE, trim_ws = TRUE)
## Rows: 177546 Columns: 22
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (17): ID_CMPT_MOVEL, CD_OPERADORA, NM_RAZAO_SOCIAL, NR_CNPJ, MODALIDADE...
## dbl (4): CD_MUNICIPIO, QT_BENEFICIARIO_ATIVO, QT_BENEFICIARIO_ADERIDO, QT_...
## date (1): DT_CARGA
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
conspb_abr <- read_delim("pda-024-icb-PB-2024_04.csv",
delim = ";", escape_double = FALSE, trim_ws = TRUE)
## Rows: 178879 Columns: 22
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (17): ID_CMPT_MOVEL, CD_OPERADORA, NM_RAZAO_SOCIAL, NR_CNPJ, MODALIDADE...
## dbl (4): CD_MUNICIPIO, QT_BENEFICIARIO_ATIVO, QT_BENEFICIARIO_ADERIDO, QT_...
## date (1): DT_CARGA
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
conspb_mai <- read_delim("pda-024-icb-PB-2024_05.csv",
delim = ";", escape_double = FALSE, trim_ws = TRUE)
## Rows: 178740 Columns: 22
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (17): ID_CMPT_MOVEL, CD_OPERADORA, NM_RAZAO_SOCIAL, NR_CNPJ, MODALIDADE...
## dbl (4): CD_MUNICIPIO, QT_BENEFICIARIO_ATIVO, QT_BENEFICIARIO_ADERIDO, QT_...
## date (1): DT_CARGA
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
conspb_jun <- read_delim("pda-024-icb-PB-2024_06.csv",
delim = ";", escape_double = FALSE, trim_ws = TRUE)
## Rows: 180574 Columns: 22
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (17): ID_CMPT_MOVEL, CD_OPERADORA, NM_RAZAO_SOCIAL, NR_CNPJ, MODALIDADE...
## dbl (4): CD_MUNICIPIO, QT_BENEFICIARIO_ATIVO, QT_BENEFICIARIO_ADERIDO, QT_...
## date (1): DT_CARGA
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
data_bind <- rbind(conspb_jan, conspb_fev, conspb_mar, conspb_abr, conspb_mai, conspb_jun)
head(data_bind)
## # A tibble: 6 × 22
## ID_CMPT_MOVEL CD_OPERADORA NM_RAZAO_SOCIAL NR_CNPJ MODALIDADE_OPERADORA SG_UF
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2024-01 312924 CAIXA ECONÔMICA… 003603… AUTOGESTÃO PB
## 2 2024-01 312924 CAIXA ECONÔMICA… 003603… AUTOGESTÃO PB
## 3 2024-01 312924 CAIXA ECONÔMICA… 003603… AUTOGESTÃO PB
## 4 2024-01 312924 CAIXA ECONÔMICA… 003603… AUTOGESTÃO PB
## 5 2024-01 312924 CAIXA ECONÔMICA… 003603… AUTOGESTÃO PB
## 6 2024-01 312924 CAIXA ECONÔMICA… 003603… AUTOGESTÃO PB
## # ℹ 16 more variables: CD_MUNICIPIO <dbl>, NM_MUNICIPIO <chr>, TP_SEXO <chr>,
## # DE_FAIXA_ETARIA <chr>, DE_FAIXA_ETARIA_REAJ <chr>, CD_PLANO <chr>,
## # TP_VIGENCIA_PLANO <chr>, DE_CONTRATACAO_PLANO <chr>,
## # DE_SEGMENTACAO_PLANO <chr>, DE_ABRG_GEOGRAFICA_PLANO <chr>,
## # COBERTURA_ASSIST_PLAN <chr>, TIPO_VINCULO <chr>,
## # QT_BENEFICIARIO_ATIVO <dbl>, QT_BENEFICIARIO_ADERIDO <dbl>,
## # QT_BENEFICIARIO_CANCELADO <dbl>, DT_CARGA <date>
rm(conspb_jan, conspb_fev, conspb_mar, conspb_abr, conspb_mai, conspb_jun)
names(data_bind)
## [1] "ID_CMPT_MOVEL" "CD_OPERADORA"
## [3] "NM_RAZAO_SOCIAL" "NR_CNPJ"
## [5] "MODALIDADE_OPERADORA" "SG_UF"
## [7] "CD_MUNICIPIO" "NM_MUNICIPIO"
## [9] "TP_SEXO" "DE_FAIXA_ETARIA"
## [11] "DE_FAIXA_ETARIA_REAJ" "CD_PLANO"
## [13] "TP_VIGENCIA_PLANO" "DE_CONTRATACAO_PLANO"
## [15] "DE_SEGMENTACAO_PLANO" "DE_ABRG_GEOGRAFICA_PLANO"
## [17] "COBERTURA_ASSIST_PLAN" "TIPO_VINCULO"
## [19] "QT_BENEFICIARIO_ATIVO" "QT_BENEFICIARIO_ADERIDO"
## [21] "QT_BENEFICIARIO_CANCELADO" "DT_CARGA"
ops_vidas <- aggregate(cbind(QT_BENEFICIARIO_ATIVO, QT_BENEFICIARIO_ADERIDO, QT_BENEFICIARIO_CANCELADO) ~ NM_RAZAO_SOCIAL + ID_CMPT_MOVEL,
data = data_bind,
FUN = sum)
head(ops_vidas, 50)
## NM_RAZAO_SOCIAL
## 1 2CARE OPERADORA DE SAÚDE LTDA.
## 2 AESP ODONTO ASSISTÊNCIA ODONTOLÓGICA S/S LTDA EPP
## 3 ALICE OPERADORA LTDA.
## 4 ALLIANZ SAÚDE S/A
## 5 ALMA ODONTO OPERADORA DE PLANOS ODONTOLOGICOS LTDA
## 6 AMAZÔNIA PLANOS DE SAÚDE LTDA
## 7 AMEPLAN ASSISTÊNCIA MÉDICA PLANEJADA LTDA
## 8 AMERON - ASSISTÊNCIA MÉDICA RONDÔNIA S/A.
## 9 AMHA SAUDE S/A
## 10 AMHE MED ASSISTENCIA A SAUDE LTDA - EPP
## 11 AMIL ASSISTÊNCIA MÉDICA INTERNACIONAL S.A.
## 12 AMPLA PLANOS DE SAUDE LTDA
## 13 ANAFE SAUDE
## 14 ARM PLANOS ODONTOLÓGICOS LTDA.
## 15 ASSISTÊNCIA ODONTOLÓGICA ESPECIALIZADA LTDA
## 16 ASSOCIAÇÃO ADVENTISTA NORTE BRASILEIRA DE PREVENÇÃO E ASSISTÊNCIA A SAÚDE
## 17 ASSOCIAÇÃO ASSISTENCIAL DE SAÚDE SUPLEMENTAR CRUZ AZUL SAÚDE
## 18 ASSOCIAÇÃO BENEFICENTE DE ASSISTÊNCIA A SAÚDE DOS JUÍZES DO TRABALHO DA 15ª REGIÃO (ABAS 15)
## 19 ASSOCIACAO CIVIL PRÓ-SAÚDE DOS SERVIDORES DA UNIVERSIDADE ESTADUAL DE PONTA GROSSA
## 20 ASSOCIAÇÃO DA SANTA CASA SAÚDE DE RIBEIRÃO PRETO
## 21 ASSOCIAÇÃO DE BENEFICÊNCIA E FILANTROPIA SÃO CRISTOVÃO
## 22 ASSOCIAÇÃO DE SAÚDE DO VALE
## 23 ASSOCIACAO DE SAUDE HOLAMBRA
## 24 ASSOCIAÇÃO DE SAÚDE PORTUGUESA DE BENEFICÊNCIA
## 25 ASSOCIAÇÃO DO FISCO DE ALAGOAS
## 26 ASSOCIAÇÃO DO PLANO DE SAÚDE DA SANTA CASA DE MISERICÓRDIA DE ITABUNA - PLANSUL
## 27 ASSOCIACAO DOS AUDITORES FISCAIS DA RECEITA ESTADUAL DE SAO PAULO
## 28 ASSOCIAÇÃO DOS AUDITORES FISCAIS DA RECEITA ESTADUAL DO RIO DE JANEIRO
## 29 ASSOCIAÇÃO DOS AUDITORES FISCAIS DO ESTADO DA PARAÍBA - AFRAFEP
## 30 ASSOCIAÇÃO DOS EMPREGADOS DA COMPANHIA ESTADUAL DE HABITAÇÃO E OBRAS PÚBLICAS - ASSEC
## 31 ASSOCIAÇÃO DOS FUNCIONÁRIOS DO FISCO DO ESTADO DE GOIÁS
## 32 ASSOCIAÇÃO DOS FUNCIONÁRIOS FISCAIS DO ESTADO DO AMAZONAS - AFFEAM
## 33 ASSOCIACAO DOS SERVIDORES DA EMDAGRO - ASSEM
## 34 ASSOCIAÇÃO DOS SERVIDORES FISCAIS DO ESTADO DA BAHIA
## 35 ASSOCIAÇÃO EVANGELICA BENEFICENTE DE LONDRINA
## 36 ASSOCIAÇÃO FCA SAÚDE
## 37 ASSOCIAÇÃO PADRE ALBINO SAÚDE
## 38 ASSOCIAÇÃO PETROBRAS DE SAÚDE - APS
## 39 ASSOCIAÇÃO SANTA CASA SAÚDE DE ARAÇATUBA
## 40 ASSOCIAÇÃO SANTA SAÚDE
## 41 ASSOCIAÇÃO SERVIÇOS ODONTOLÓGICOS DA INDÚSTRIA DE MINAS GERAIS - ODONTOINDUSTRIA
## 42 ASSOCIAÇÃO VALEPARAIBANA DE ASSISTÊNCIA MÉDICA POLICIAL
## 43 ATEMDE ODONTO SAÚDE CLUBE DE BENEFÍCIOS
## 44 ATÍVIA SERVIÇOS DE SAÚDE S/A
## 45 BENEFICENCIA CAMILIANA DO SUL
## 46 BIO SAÚDE SERVIÇOS MÉDICOS LTDA
## 47 BIORAL SISTEMA ODONTOLÓGICO LTDA.
## 48 BRADESCO SAÚDE - OPERADORA DE PLANOS S/A
## 49 BRADESCO SAÚDE S.A.
## 50 BRASIL ODONTO OPERADORA DE PLANOS ODONTOLÓGICOS LTDA
## ID_CMPT_MOVEL QT_BENEFICIARIO_ATIVO QT_BENEFICIARIO_ADERIDO
## 1 2024-01 4 3
## 2 2024-01 547 14
## 3 2024-01 35 0
## 4 2024-01 0 0
## 5 2024-01 1 0
## 6 2024-01 1 0
## 7 2024-01 1 0
## 8 2024-01 154 0
## 9 2024-01 1 0
## 10 2024-01 8 0
## 11 2024-01 12829 484
## 12 2024-01 227 26
## 13 2024-01 79 4
## 14 2024-01 1 0
## 15 2024-01 1 0
## 16 2024-01 14 0
## 17 2024-01 35 0
## 18 2024-01 57 0
## 19 2024-01 4 0
## 20 2024-01 40 0
## 21 2024-01 1 0
## 22 2024-01 1 0
## 23 2024-01 0 0
## 24 2024-01 2 0
## 25 2024-01 2 0
## 26 2024-01 2 0
## 27 2024-01 13 0
## 28 2024-01 4 0
## 29 2024-01 3828 15
## 30 2024-01 1 0
## 31 2024-01 5 0
## 32 2024-01 1 0
## 33 2024-01 3 0
## 34 2024-01 3 0
## 35 2024-01 1 0
## 36 2024-01 3067 37
## 37 2024-01 7 0
## 38 2024-01 1615 5
## 39 2024-01 2 0
## 40 2024-01 7 0
## 41 2024-01 5 0
## 42 2024-01 3 0
## 43 2024-01 2 0
## 44 2024-01 9 0
## 45 2024-01 17 0
## 46 2024-01 1 0
## 47 2024-01 5 0
## 48 2024-01 18681 75
## 49 2024-01 27615 649
## 50 2024-01 2 0
## QT_BENEFICIARIO_CANCELADO
## 1 0
## 2 231
## 3 2
## 4 2
## 5 0
## 6 0
## 7 0
## 8 0
## 9 0
## 10 0
## 11 431
## 12 7
## 13 0
## 14 0
## 15 0
## 16 0
## 17 1
## 18 0
## 19 0
## 20 0
## 21 0
## 22 0
## 23 1
## 24 0
## 25 0
## 26 0
## 27 0
## 28 0
## 29 18
## 30 0
## 31 0
## 32 0
## 33 0
## 34 0
## 35 0
## 36 49
## 37 0
## 38 2
## 39 0
## 40 1
## 41 0
## 42 0
## 43 0
## 44 0
## 45 0
## 46 0
## 47 0
## 48 262
## 49 672
## 50 0