Introdução

vamos carregar o banco de dados, construir tabelas e mostrar as visualizações com gráfico de pizza.

passo zero

Vamos carregar os três bancos de dados.

Familias Prefeitos Fluminense Secult CE

load("C:/Users/Usuario/Desktop/Base_de_dados-master/dados_SECULT_CE.RData")
load("C:/Users/Usuario/Desktop/Base_de_dados-master/prefeitofluminense.RData")
library(readxl)
Familias <- read_excel("C:/Users/Usuario/Desktop/Base_de_dados-master/Familias.xls", 
                       sheet = "Dados da pesquisa")

meu texto

passo 1

Aqui vamos construir as tabelas.

tabfam1 <- table(Familias$local)
tabfam2 <- table(Familias$p.a.p)

tabfam1
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43
tabfam2
## 
## Não usa     Usa 
##      42      78
dadosecult1 <- table(dados_SECULT_CE$Teatro)
dadosecult2 <- table(dados_SECULT_CE$Artes_Visuais)

dadosecult1
## 
##  não  sim 
## 1402  212
dadosecult2
## 
##  não  sim 
## 1451  163
pref1 <- table(prefeitofluminense$DESCRICAO_SEXO)
pref2 <- table(prefeitofluminense$DESCRICAO_GRAU_INSTRUCAO)

pref1
## 
##  FEMININO MASCULINO 
##        48       399
pref2
## 
##   ENSINO FUNDAMENTAL COMPLETO ENSINO FUNDAMENTAL INCOMPLETO 
##                            20                             9 
##         ENSINO MÉDIO COMPLETO       ENSINO MÉDIO INCOMPLETO 
##                            98                            11 
##             SUPERIOR COMPLETO           SUPERIOR INCOMPLETO 
##                           266                            43

passo 2 - mostrar os percentuais

Aqui vamos calcular os percentuais.

pipipopopo texto aqui

prop.table(tabfam1)
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##          0.3083333          0.3333333          0.3583333
prop.table(table(Familias$p.a.p))
## 
## Não usa     Usa 
##    0.35    0.65
round(prop.table(dadosecult1)*100,2)
## 
##   não   sim 
## 86.86 13.14
round(prop.table(dadosecult2)*100,2)
## 
##  não  sim 
## 89.9 10.1
round(prop.table(pref1)*100,2)
## 
##  FEMININO MASCULINO 
##     10.74     89.26
  1. 89% de prefeitos do sexo masculino
  2. Mais teatro do que arte visual
  3. Maioria usa p.a.p

3 - gráficos de pizza

pie(tabfam1, main = "Gráfico 2 - Distribuição de famílias por bairro", col = c("#963939", "#403d3d", "#4b5475"))

pie(tabfam2,main = "Gráfico 1 - Famílias que usam o p.a.p", col = c("#786576", "#d9db4b"))

4 - Gráfico de barra

barplot(tabfam1, col = c("red", "blue", "yellow"),
        main = "Gráfico 3 - distribuição de famílias por bairro",
        ylim = c(0,50))

barplot(pref1, col =  c("blue", "red"), 
        main = "Sexo dos candidatos a prefeito dos municipios do estado do RJ",
        ylim = c(0,500))

A maioria mora no bairro parque da figueira

5 - Conclusão parcial

É fácil construir gráficos com o R.