A seguir os códigos:
- CARREGAMENTO DE PACOTES #importação das bibliotecas library(readxl) library(rmarkdown) library(ggplot2) library(tidyverse) library(dplyr)
- leitura do banco de daods Dados <- read_excel(‘bd_sc.xlsx’) dados <- as.data.frame(Dados)
- ECONOMIA POR MUNICIPIO #maior renda por municipio maior_renda <- dados %>% select(MUN, RE) %>% top_n(10, wt = RE) %>% arrange(desc(RE))
#maior dispesas por municipio maior_despesa <- dados %>% select(MUN, DES) %>% top_n(10, wt = DES) %>% arrange(desc(DES))
#menor pib por municipio maior_pib <- dados %>% select(MUN, PIB) %>% top_n(10, wt = PIB) %>% arrange(desc(PIB))
#menor idhm por municipio maior_idhm <- dados %>% select(MUN, IDHM) %>% top_n(10, wt = IDHM) %>% arrange(desc(IDHM))
- IDHM MUNICIPIO ggplot(maior_idhm, aes(x= IDHM, y= MUN)) + geom_point(color= “black”) + labs(title=“10 Municípios com maior índice de Desenvolvimento Humano(2010) - Santa Catarina”) + ylab(“Municípios”) + xlab(“IDHM”)
- RECEITA MUNICIPIO ggplot(maior_renda, aes(x= RE, y= MUN)) + geom_point(color= “black”) + labs(title=“10 Municípios com maior Receita(2017) - Santa Catarina”) + ylab(“Municípios”) + xlab(“Receita”)
- DESPESA POR MUNICIPIO ggplot(maior_despesa, aes(x= DES, y= MUN)) + geom_point(color= “black”) + labs(title=“10 Municípios com maior Despesas[2017] - Santa Catarina”) + ylab(“Municípios”) + xlab(“Despesas”)
- MAIOR PIB ggplot(maior_pib, aes(x= PIB, y= MUN)) + geom_point(color= “black”) + labs(title=“10 Municípios com maior PIB per capita[2020] - Santa Catarina”) + ylab(“Municípios”) + xlab(“PIB”)
- MENORES RECEITAS #escolhendo as 10 menores despesas menores_re <- order(dados$RE, decreasing = FALSE) [1:10] menores_receitas <- dados[menores_re, c(‘MUN’, ‘RE’)]
paged_table(menores_receitas)
- TABELA DE RECEITAS #escolhendo as 10 menores despesas menores_des <- order(dados$DES, decreasing = FALSE) [1:10] menores_despesas <- dados[menores_des, c(‘MUN’, ‘DES’)]
paged_table(menores_despesas)
- MENORES PIB #escolhendo os 10 menores PIB menorespib <- order(dados$PIB, decreasing = FALSE) [1:10] menor_pib <- dados[menorespib, c(‘MUN’, ‘PIB’)]
paged_table(menor_pib)