Processamento Inventários

#Programa Para Análise de Banco de Dados (Padres)

library(ggplot2)#Função para auxiliar na produção de gráficos
library(readr) #leitura de arquivos
library(dplyr) #função para agrupar valores
library(stringr) #função para lidar com strings
library(tidyr)#Função Manipulação linhas e colunas
library(reshape2)
library(ggthemes)

#function(theme1) #criar função para padronizar formatação da tabela



#importação de banco de dados
library(readxl)
Planília_Bens_Padres_Classificados3 <- read_excel("Planília Bens Padres Classificados3.xlsx",
                                                  col_types = c("text", "text", "text",
                                                                "text", "text", "text", "text", "numeric",
                                                                "text", "numeric", "text", "text",
                                                                  "text", "text", "skip"))

#extraindo coluna de caixa
Planília_Bens_Padres_Classificados3 <-Planília_Bens_Padres_Classificados3[,-c(2)]

#Junção das categorias ano, auto
Planília_Bens_Padres_Classificados3 = Planília_Bens_Padres_Classificados3 %>% unite(Auto, Ano:Auto, remove = FALSE)

#Hierarquia dos Sacerdotes (resolver!!!)
HierarquiaPadres = group_by(Planília_Bens_Padres_Classificados3,
                            Auto, Hierarquia)%>%summarise(Hierarquia=Hierarquia)#Criando planília Auto / Hierarquia
HierarquiaPadres = unique(HierarquiaPadres)#Reduzindo a planília a registros únicos
HierarquiaPadres[Hierarquia] = tolower(c(HierarquiaPadres$Hierarquia))#convertendo todas as letras em minusculas
HierarquiaPadres[Hierarquia] = strsplit(c(TotalHierarquiaPadres), " ")
hierarquia <- c("padre", "cônego", "reverendo", "bispo", "vigário")
write.csv(HierarquiaPadres, "hierarquiapadres.csv", row.names = FALSE)
a <- table(TotalHierarquiaPadres)

contagem = hierarquia %in% TotalHierarquiaPadres


#Soma dos valores de cada categoria de cada Auto
Planília_Bens_Padres_ClassificadosPRI = group_by(
  Planília_Bens_Padres_Classificados3, Auto, ClasPri)%>%summarise(Total=sum(Valor))

#gráfico bens padres proporção (GERAL MIS)
ggplot(`Planília_Bens_Padres_ClassificadosPRI`) +
  aes(x = Auto, fill = ClasPri, weight = Total) +
  geom_bar(position = "fill") +
  scale_fill_calc() +
  labs(x = "\nAuto", y = "Proporção (do valor dos bens)\n",
       title = "Porporção Bens Sacerdotes (Geral)\n",
       caption = "\n*Inventários identificados por ano_auto
       Demais informações constantes na listagem completa",
       fill = "Classificação") +
  theme(axis.text.x = element_text(angle = 90),
        text=element_text(size=20, family="Arial MS"),
        legend.position="top",
        plot.background = element_rect(fill = "#F5FFFA"),
        plot.margin = unit(c(1, 1, 1, 1), "cm"))

#salvamento do gráfico nas proporções corretas
ggsave(filename = "Porporção Bens Sacerdotes (Geral).png",
       width = 20, height = 14, dpi = 500, units = "in", device='png')

#Soma dos valores da categoria Bens Moveis Auto
Planília_Bens_Padres_ClassificadosMoveis = group_by(Planília_Bens_Padres_Classificados3,
                                                    Auto, Moveis_1)%>%summarise(Total=sum(Valor))

#gráfico bens sacerdotes proporção (Bens Moveis)
ggplot(`Planília_Bens_Padres_ClassificadosMoveis`) +
  aes(x = Auto, fill = Moveis_1, weight = Total) +
  geom_bar(position = "fill") +
  scale_fill_calc() +
  labs(x = "\nAuto", y = "Proporção (do valor dos bens)\n",
       title = "Porporção Bens Sacerdotes (Bens Móveis)\n",
       caption = "\n*Inventários identificados por ano_auto
       Demais informações constantes na listagem completa",
       fill = "Classificação") +
  theme(axis.text.x = element_text(angle = 90),
        text=element_text(size=20, family="Arial MS"),
        legend.position="top",
        plot.background = element_rect(fill = "#F5FFFA"),
        plot.margin = unit(c(1, 1, 1, 1), "cm"))

#Salvamento da planilia anterior
ggsave(filename = "Porporção Bens Sacerdotes (Bens Móveis).png",
       width = 20, height = 14, dpi = 500, units = "in", device='png')

#Soma dos valores da categoria Bens Imoveis Auto
Planília_Bens_Padres_ClassificadosImoveis = group_by(Planília_Bens_Padres_Classificados3,
                                                     Auto, Imoveis_2)%>%summarise(Total=sum(Valor))

#gráfico bens padres proporção (Bens Imóveis)
ggplot(`Planília_Bens_Padres_ClassificadosImoveis`) +
  aes(x = Auto, fill = Imoveis_2, weight = Total) +
  geom_bar(position = "fill") +
  scale_fill_calc() +
  labs(x = "\nAuto", y = "Proporção (do valor dos bens)\n",
       title = "Porporção Bens Sacerdotes (Bens Imóveis)\n",
       caption = "\n*Inventários identificados por ano_auto
       Demais informações constantes na listagem completa",
       fill = "Classificação") +
  theme(axis.text.x = element_text(angle = 90),
        text=element_text(size=20, family="Arial MS"),
        legend.position="top",
        plot.background = element_rect(fill = "#F5FFFA"),
        plot.margin = unit(c(1, 1, 1, 1), "cm"))

#Salvamento da planilia anterior
ggsave(filename = "Porporção Bens Sacerdotes (Bens imóveis).png",
       width = 20, height = 14, dpi = 500, units = "in", device='png')

#Soma dos valores da categoria Bens Imoveis Auto
Planília_Bens_Padres_ClassificadosSemoventes = group_by(Planília_Bens_Padres_Classificados3,
                                                        Auto, Semoviveis_3)%>%summarise(Total=sum(Valor))

#gráfico bens padres proporção (Semoventes)
ggplot(`Planília_Bens_Padres_ClassificadosSemoventes`) +
  aes(x = Auto, fill = Semoviveis_3, weight = Total) +
  geom_bar(position = "fill") +
  scale_fill_calc() +
  labs(x = "\nAuto", y = "Proporção (do valor dos bens)\n",
       title = "Porporção Bens Sacerdotes (Bens Semoventes)\n",
       caption = "\n*Inventários identificados por ano_auto
       Demais informações constantes na listagem completa",
       fill = "Classificação") +
  theme(axis.text.x = element_text(angle = 90),
        text=element_text(size=20, family="Arial MS"),
        legend.position="top",
        plot.background = element_rect(fill = "#F5FFFA"),
        plot.margin = unit(c(1, 1, 1, 1), "cm"))

#Salvamento da planilia anterior
ggsave(filename = "Porporção Bens Sacerdotes (Bens Semoventes).png",
       width = 20, height = 14, dpi = 500, units = "in", device='png')