library(data.table)
library(tidyverse)

dt <- fread("caged_act.csv")
head(dt)
glimpse(dt)
table(dt$uf_nome)
dt$uf_novo <- ifelse(dt$uf_nome=="São Paulo", "São Paulo",
                     ifelse(dt$uf_nome=="Rio de Janeiro", "Rio de Janeiro", "Outro"))
table(dt$uf_novo)
prop.table(table(dt$uf_novo))
table(dt$uf_novo, dt$act)
tabela_cruzada <- table(dt$uf_novo, dt$act)
mean(dt$saldo)
median(dt$saldo)
sd(dt$saldo)
hist(dt$saldo)
plot(dt$V1, dt$saldo)
cor(dt$V1, dt$saldo)