Paulo_V_S_Santana

Processamento Inventários

Aug 28th, 2020
176
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #Programa Para Análise de Banco de Dados (Padres)
  2.  
  3. library(ggplot2)#Função para auxiliar na produção de gráficos
  4. library(readr) #leitura de arquivos
  5. library(dplyr) #função para agrupar valores
  6. library(stringr) #função para lidar com strings
  7. library(tidyr)#Função Manipulação linhas e colunas
  8. library(reshape2)
  9. library(ggthemes)
  10.  
  11. #function(theme1) #criar função para padronizar formatação da tabela
  12.  
  13.  
  14.  
  15. #importação de banco de dados
  16. library(readxl)
  17. Planília_Bens_Padres_Classificados3 <- read_excel("Planília Bens Padres Classificados3.xlsx",
  18.                                                   col_types = c("text", "text", "text",
  19.                                                                 "text", "text", "text", "text", "numeric",
  20.                                                                 "text", "numeric", "text", "text",
  21.                                                                   "text", "text", "skip"))
  22.  
  23. #extraindo coluna de caixa
  24. Planília_Bens_Padres_Classificados3 <-Planília_Bens_Padres_Classificados3[,-c(2)]
  25.  
  26. #Junção das categorias ano, auto
  27. Planília_Bens_Padres_Classificados3 = Planília_Bens_Padres_Classificados3 %>% unite(Auto, Ano:Auto, remove = FALSE)
  28.  
  29. #Hierarquia dos Sacerdotes (resolver!!!)
  30. HierarquiaPadres = group_by(Planília_Bens_Padres_Classificados3,
  31.                             Auto, Hierarquia)%>%summarise(Hierarquia=Hierarquia)#Criando planília Auto / Hierarquia
  32. HierarquiaPadres = unique(HierarquiaPadres)#Reduzindo a planília a registros únicos
  33. HierarquiaPadres[Hierarquia] = tolower(c(HierarquiaPadres$Hierarquia))#convertendo todas as letras em minusculas
  34. HierarquiaPadres[Hierarquia] = strsplit(c(TotalHierarquiaPadres), " ")
  35. hierarquia <- c("padre", "cônego", "reverendo", "bispo", "vigário")
  36. write.csv(HierarquiaPadres, "hierarquiapadres.csv", row.names = FALSE)
  37. a <- table(TotalHierarquiaPadres)
  38.  
  39. contagem = hierarquia %in% TotalHierarquiaPadres
  40.  
  41.  
  42. #Soma dos valores de cada categoria de cada Auto
  43. Planília_Bens_Padres_ClassificadosPRI = group_by(
  44.   Planília_Bens_Padres_Classificados3, Auto, ClasPri)%>%summarise(Total=sum(Valor))
  45.  
  46. #gráfico bens padres proporção (GERAL MIS)
  47. ggplot(`Planília_Bens_Padres_ClassificadosPRI`) +
  48.   aes(x = Auto, fill = ClasPri, weight = Total) +
  49.   geom_bar(position = "fill") +
  50.   scale_fill_calc() +
  51.   labs(x = "\nAuto", y = "Proporção (do valor dos bens)\n",
  52.        title = "Porporção Bens Sacerdotes (Geral)\n",
  53.        caption = "\n*Inventários identificados por ano_auto
  54.       Demais informações constantes na listagem completa",
  55.        fill = "Classificação") +
  56.   theme(axis.text.x = element_text(angle = 90),
  57.         text=element_text(size=20, family="Arial MS"),
  58.         legend.position="top",
  59.         plot.background = element_rect(fill = "#F5FFFA"),
  60.         plot.margin = unit(c(1, 1, 1, 1), "cm"))
  61.  
  62. #salvamento do gráfico nas proporções corretas
  63. ggsave(filename = "Porporção Bens Sacerdotes (Geral).png",
  64.        width = 20, height = 14, dpi = 500, units = "in", device='png')
  65.  
  66. #Soma dos valores da categoria Bens Moveis Auto
  67. Planília_Bens_Padres_ClassificadosMoveis = group_by(Planília_Bens_Padres_Classificados3,
  68.                                                     Auto, Moveis_1)%>%summarise(Total=sum(Valor))
  69.  
  70. #gráfico bens sacerdotes proporção (Bens Moveis)
  71. ggplot(`Planília_Bens_Padres_ClassificadosMoveis`) +
  72.   aes(x = Auto, fill = Moveis_1, weight = Total) +
  73.   geom_bar(position = "fill") +
  74.   scale_fill_calc() +
  75.   labs(x = "\nAuto", y = "Proporção (do valor dos bens)\n",
  76.        title = "Porporção Bens Sacerdotes (Bens Móveis)\n",
  77.        caption = "\n*Inventários identificados por ano_auto
  78.       Demais informações constantes na listagem completa",
  79.        fill = "Classificação") +
  80.   theme(axis.text.x = element_text(angle = 90),
  81.         text=element_text(size=20, family="Arial MS"),
  82.         legend.position="top",
  83.         plot.background = element_rect(fill = "#F5FFFA"),
  84.         plot.margin = unit(c(1, 1, 1, 1), "cm"))
  85.  
  86. #Salvamento da planilia anterior
  87. ggsave(filename = "Porporção Bens Sacerdotes (Bens Móveis).png",
  88.        width = 20, height = 14, dpi = 500, units = "in", device='png')
  89.  
  90. #Soma dos valores da categoria Bens Imoveis Auto
  91. Planília_Bens_Padres_ClassificadosImoveis = group_by(Planília_Bens_Padres_Classificados3,
  92.                                                      Auto, Imoveis_2)%>%summarise(Total=sum(Valor))
  93.  
  94. #gráfico bens padres proporção (Bens Imóveis)
  95. ggplot(`Planília_Bens_Padres_ClassificadosImoveis`) +
  96.   aes(x = Auto, fill = Imoveis_2, weight = Total) +
  97.   geom_bar(position = "fill") +
  98.   scale_fill_calc() +
  99.   labs(x = "\nAuto", y = "Proporção (do valor dos bens)\n",
  100.        title = "Porporção Bens Sacerdotes (Bens Imóveis)\n",
  101.        caption = "\n*Inventários identificados por ano_auto
  102.       Demais informações constantes na listagem completa",
  103.        fill = "Classificação") +
  104.   theme(axis.text.x = element_text(angle = 90),
  105.         text=element_text(size=20, family="Arial MS"),
  106.         legend.position="top",
  107.         plot.background = element_rect(fill = "#F5FFFA"),
  108.         plot.margin = unit(c(1, 1, 1, 1), "cm"))
  109.  
  110. #Salvamento da planilia anterior
  111. ggsave(filename = "Porporção Bens Sacerdotes (Bens imóveis).png",
  112.        width = 20, height = 14, dpi = 500, units = "in", device='png')
  113.  
  114. #Soma dos valores da categoria Bens Imoveis Auto
  115. Planília_Bens_Padres_ClassificadosSemoventes = group_by(Planília_Bens_Padres_Classificados3,
  116.                                                         Auto, Semoviveis_3)%>%summarise(Total=sum(Valor))
  117.  
  118. #gráfico bens padres proporção (Semoventes)
  119. ggplot(`Planília_Bens_Padres_ClassificadosSemoventes`) +
  120.   aes(x = Auto, fill = Semoviveis_3, weight = Total) +
  121.   geom_bar(position = "fill") +
  122.   scale_fill_calc() +
  123.   labs(x = "\nAuto", y = "Proporção (do valor dos bens)\n",
  124.        title = "Porporção Bens Sacerdotes (Bens Semoventes)\n",
  125.        caption = "\n*Inventários identificados por ano_auto
  126.       Demais informações constantes na listagem completa",
  127.        fill = "Classificação") +
  128.   theme(axis.text.x = element_text(angle = 90),
  129.         text=element_text(size=20, family="Arial MS"),
  130.         legend.position="top",
  131.         plot.background = element_rect(fill = "#F5FFFA"),
  132.         plot.margin = unit(c(1, 1, 1, 1), "cm"))
  133.  
  134. #Salvamento da planilia anterior
  135. ggsave(filename = "Porporção Bens Sacerdotes (Bens Semoventes).png",
  136.        width = 20, height = 14, dpi = 500, units = "in", device='png')
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×