Gov Data

Instalando os pacotes necessários para análise de dados.

install.packages(‘dplyr’)
install.packages(‘ggplot2’)
install.packages(‘tidyr’)
install.packages(‘shiny’)
install.packages(‘plotly’)
install.packages(‘data.table’)
install.packages(‘readr’)

Carregando os pacotes

library('dplyr')

## 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

library('ggplot2')

## Warning: package 'ggplot2' was built under R version 4.3.3

library('tidyr')

## Warning: package 'tidyr' was built under R version 4.3.3

library('shiny')

## Warning: package 'shiny' was built under R version 4.3.3

library('plotly')

## 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

library('data.table')

## 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

library('readr')

## Warning: package 'readr' was built under R version 4.3.3

Carregando dados

primeirotri <- read_delim("data/1T2024.csv", 
    delim = ";", escape_double = FALSE, trim_ws = TRUE)

## Rows: 689695 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr  (3): REG_ANS, DESCRICAO, VL_SALDO_FINAL
## dbl  (1): CD_CONTA_CONTABIL
## num  (1): VL_SALDO_INICIAL
## date (1): DATA
## 
## ℹ 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.

segundotri  <- read_delim("data/2T2024.csv", 
    delim = ";", escape_double = FALSE, trim_ws = TRUE)

## Rows: 708106 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr  (4): REG_ANS, DESCRICAO, VL_SALDO_INICIAL, VL_SALDO_FINAL
## dbl  (1): CD_CONTA_CONTABIL
## date (1): DATA
## 
## ℹ 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.

head(primeirotri)

## # A tibble: 6 × 6
##   DATA       REG_ANS CD_CONTA_CONTABIL DESCRICAO VL_SALDO_INICIAL VL_SALDO_FINAL
##   <date>     <chr>               <dbl> <chr>                <dbl> <chr>         
## 1 2024-01-01 356476             463919 Outras D…                0 91066,19      
## 2 2024-01-01 356476           46391901 Outras D…                0 91066,19      
## 3 2024-01-01 356476          463919011 Despesas…                0 34059,68      
## 4 2024-01-01 356476          463919012 Despesas…                0 342,47        
## 5 2024-01-01 356476          463919013 Despesas…                0 21801,81      
## 6 2024-01-01 356476          463919014 Despesas…                0 34862,23

head(segundotri)

## # A tibble: 6 × 6
##   DATA       REG_ANS CD_CONTA_CONTABIL DESCRICAO VL_SALDO_INICIAL VL_SALDO_FINAL
##   <date>     <chr>               <dbl> <chr>     <chr>            <chr>         
## 1 2024-04-01 335100          441919119 (-) Reve… 0                -404304,78    
## 2 2024-04-01 335100           44191912 Provisão… 185369           533624,98     
## 3 2024-04-01 335100          441919121 Provisão… 185369           556503,61     
## 4 2024-04-01 335100          441919129 (-) reve… 0                -22878,63     
## 5 2024-04-01 335100           44191921 Provisão… 881091,45        1442220,21    
## 6 2024-04-01 335100          441919211 Provisão… 881091,45        1765726,67

Ajustando tipo das colunas

primeirotri$CD_CONTA_CONTABIL <-as.character(primeirotri$CD_CONTA_CONTABIL)
primeirotri$VL_SALDO_FINAL <- as.numeric(primeirotri$VL_SALDO_FINAL)

## Warning: NAs introduzidos por coerção

primeirotri$VL_SALDO_INICIAL <- as.numeric(primeirotri$VL_SALDO_INICIAL)
segundotri$CD_CONTA_CONTABIL <- as.character(segundotri$CD_CONTA_CONTABIL)
segundotri$VL_SALDO_FINAL <- as.numeric(segundotri$VL_SALDO_FINAL)

## Warning: NAs introduzidos por coerção

segundotri$VL_SALDO_INICIAL <- as.numeric(segundotri$VL_SALDO_INICIAL)

## Warning: NAs introduzidos por coerção

Novos heads

head(primeirotri)

## # A tibble: 6 × 6
##   DATA       REG_ANS CD_CONTA_CONTABIL DESCRICAO VL_SALDO_INICIAL VL_SALDO_FINAL
##   <date>     <chr>   <chr>             <chr>                <dbl>          <dbl>
## 1 2024-01-01 356476  463919            Outras D…                0             NA
## 2 2024-01-01 356476  46391901          Outras D…                0             NA
## 3 2024-01-01 356476  463919011         Despesas…                0             NA
## 4 2024-01-01 356476  463919012         Despesas…                0             NA
## 5 2024-01-01 356476  463919013         Despesas…                0             NA
## 6 2024-01-01 356476  463919014         Despesas…                0             NA

head(primeirotri)

## # A tibble: 6 × 6
##   DATA       REG_ANS CD_CONTA_CONTABIL DESCRICAO VL_SALDO_INICIAL VL_SALDO_FINAL
##   <date>     <chr>   <chr>             <chr>                <dbl>          <dbl>
## 1 2024-01-01 356476  463919            Outras D…                0             NA
## 2 2024-01-01 356476  46391901          Outras D…                0             NA
## 3 2024-01-01 356476  463919011         Despesas…                0             NA
## 4 2024-01-01 356476  463919012         Despesas…                0             NA
## 5 2024-01-01 356476  463919013         Despesas…                0             NA
## 6 2024-01-01 356476  463919014         Despesas…                0             NA

primeirotri$VL_SALDO_FINAL[is.na(primeirotri$VL_SALDO_FINAL)] <- 0
primeirotri$VL_SALDO_INICIAL[is.na(primeirotri$VL_SALDO_INICIAL)] <- 0

segundotri$VL_SALDO_FINAL[is.na(segundotri$VL_SALDO_FINAL)] <- 0
segundotri$VL_SALDO_INICIAL[is.na(segundotri$VL_SALDO_INICIAL)] <- 0

head(primeirotri)

## # A tibble: 6 × 6
##   DATA       REG_ANS CD_CONTA_CONTABIL DESCRICAO VL_SALDO_INICIAL VL_SALDO_FINAL
##   <date>     <chr>   <chr>             <chr>                <dbl>          <dbl>
## 1 2024-01-01 356476  463919            Outras D…                0              0
## 2 2024-01-01 356476  46391901          Outras D…                0              0
## 3 2024-01-01 356476  463919011         Despesas…                0              0
## 4 2024-01-01 356476  463919012         Despesas…                0              0
## 5 2024-01-01 356476  463919013         Despesas…                0              0
## 6 2024-01-01 356476  463919014         Despesas…                0              0

head(primeirotri)

## # A tibble: 6 × 6
##   DATA       REG_ANS CD_CONTA_CONTABIL DESCRICAO VL_SALDO_INICIAL VL_SALDO_FINAL
##   <date>     <chr>   <chr>             <chr>                <dbl>          <dbl>
## 1 2024-01-01 356476  463919            Outras D…                0              0
## 2 2024-01-01 356476  46391901          Outras D…                0              0
## 3 2024-01-01 356476  463919011         Despesas…                0              0
## 4 2024-01-01 356476  463919012         Despesas…                0              0
## 5 2024-01-01 356476  463919013         Despesas…                0              0
## 6 2024-01-01 356476  463919014         Despesas…                0              0

Gov Data

Assunção Lucas

2024-09-10

Instalando os pacotes necessários para análise de dados.

Carregando os pacotes

Carregando dados

Ajustando tipo das colunas

Novos heads