Teste para saber se sei usar o R - 05/10/24

Primeiro vamos carregar a base de dados!

library(readxl)
## Warning: pacote 'readxl' foi compilado no R versão 4.4.1
Familias <- read_excel("C:/Users/furta/OneDrive/Área de Trabalho/Base_de_dados-master/Familias.xls", 
                       sheet = "Dados da pesquisa")

Verificar se há erros!

str(Familias)
## tibble [120 × 6] (S3: tbl_df/tbl/data.frame)
##  $ familia: num [1:120] 1 2 3 4 5 6 7 8 9 10 ...
##  $ local  : chr [1:120] "Monte Verde" "Monte Verde" "Monte Verde" "Monte Verde" ...
##  $ p.a.p  : chr [1:120] "Não usa" "Não usa" "Usa" "Não usa" ...
##  $ instr  : chr [1:120] "Ensino médio" "Ensino médio" "Ensino fundamental" "Ensino fundamental" ...
##  $ tam    : num [1:120] 4 4 4 5 4 1 2 3 6 4 ...
##  $ renda  : num [1:120] 10.3 15.4 9.6 5.5 9 2.4 4.1 8.4 10.3 4.6 ...
head(Familias$local)
## [1] "Monte Verde" "Monte Verde" "Monte Verde" "Monte Verde" "Monte Verde"
## [6] "Monte Verde"
tail(Familias$p.a.p)
## [1] "Usa"     "Usa"     "Usa"     "Não usa" "Não usa" "Não usa"

Tabelas de Tamanho, Renda, P.A.P e escolaridade

tabela_local = table(Familias$local)
tabela_local
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43
tabela_p.a.p = table(Familias$p.a.p)
tabela_p.a.p
## 
## Não usa     Usa 
##      42      78
tabela_instr = table(Familias$instr)
tabela_instr
## 
## Ensino fundamental       Ensino médio      Sem Instrução 
##                 38                 44                 38
tabela_tam = table(Familias$tam)
tabela_tam
## 
##  1  2  3  4  5  6  7  8  9 
##  3  6 21 32 32 15  6  4  1
tabela_renda = table(Familias$renda)
tabela_renda
## 
##  0.1  0.9  1.1  1.3  1.8  2.1  2.2  2.3  2.4  2.5  2.6  2.7  2.8  2.9  3.1  3.5 
##    1    1    1    1    1    2    1    3    3    1    2    2    3    1    1    2 
##  3.6  3.8  3.9    4  4.1  4.2  4.4  4.5  4.6  4.8  4.9    5  5.1  5.3  5.4  5.5 
##    1    1    7    2    2    4    2    1    2    3    1    3    3    1    1    3 
##  5.7  5.8    6  6.1  6.4  6.8  7.1  7.2  7.4  7.5  7.7  7.9  8.4  8.5  8.6  8.9 
##    1    6    1    1    6    2    2    1    1    1    3    1    2    1    1    1 
##    9  9.6 10.2 10.3 10.4 10.8 10.9 11.1 11.3 11.4 12.2 12.5 12.9 13.9   14 15.4 
##    4    1    1    2    1    1    1    1    1    1    1    1    3    1    1    1 
## 18.6 19.3 25.7 
##    1    1    1

Agora vamos fazer com proporções

round(prop.table(tabela_local)*100,2)
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##              30.83              33.33              35.83
round(prop.table(tabela_p.a.p)*100,2)
## 
## Não usa     Usa 
##      35      65
round(prop.table(tabela_tam)*100,2)
## 
##     1     2     3     4     5     6     7     8     9 
##  2.50  5.00 17.50 26.67 26.67 12.50  5.00  3.33  0.83
round(prop.table(tabela_renda)*100,2)
## 
##  0.1  0.9  1.1  1.3  1.8  2.1  2.2  2.3  2.4  2.5  2.6  2.7  2.8  2.9  3.1  3.5 
## 0.84 0.84 0.84 0.84 0.84 1.68 0.84 2.52 2.52 0.84 1.68 1.68 2.52 0.84 0.84 1.68 
##  3.6  3.8  3.9    4  4.1  4.2  4.4  4.5  4.6  4.8  4.9    5  5.1  5.3  5.4  5.5 
## 0.84 0.84 5.88 1.68 1.68 3.36 1.68 0.84 1.68 2.52 0.84 2.52 2.52 0.84 0.84 2.52 
##  5.7  5.8    6  6.1  6.4  6.8  7.1  7.2  7.4  7.5  7.7  7.9  8.4  8.5  8.6  8.9 
## 0.84 5.04 0.84 0.84 5.04 1.68 1.68 0.84 0.84 0.84 2.52 0.84 1.68 0.84 0.84 0.84 
##    9  9.6 10.2 10.3 10.4 10.8 10.9 11.1 11.3 11.4 12.2 12.5 12.9 13.9   14 15.4 
## 3.36 0.84 0.84 1.68 0.84 0.84 0.84 0.84 0.84 0.84 0.84 0.84 2.52 0.84 0.84 0.84 
## 18.6 19.3 25.7 
## 0.84 0.84 0.84

E agora que tal um grafico de pizza?

pie(tabela_local)

pie(tabela_local, main = "Gráfico 1 - Locais das Familias")

pie(tabela_p.a.p)

pie(tabela_p.a.p, main = "Gráfico 2 - P.A.P das Familias")

pie(tabela_tam)

pie(tabela_tam, main = "Gráfico 3 - Tamanho das Familias")

pie(tabela_tam, col = c("lightblue", "white", "red", "black", "lightgreen", "tan4", "violetred3", "springgreen1", "yellowgreen"), 
    main = "Tamanho das Familias")

pie(tabela_renda)

pie(tabela_renda, main = "Gráfico 4 - Renda das Familias")

# Ultimos Graficos

library(flextable)
## Warning: pacote 'flextable' foi compilado no R versão 4.4.1
tabela_local
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43
class(tabela_local)
## [1] "table"
tabela_p.a.p
## 
## Não usa     Usa 
##      42      78
class(tabela_p.a.p)
## [1] "table"
tabela_tam
## 
##  1  2  3  4  5  6  7  8  9 
##  3  6 21 32 32 15  6  4  1
class(tabela_tam)
## [1] "table"
tabela_renda
## 
##  0.1  0.9  1.1  1.3  1.8  2.1  2.2  2.3  2.4  2.5  2.6  2.7  2.8  2.9  3.1  3.5 
##    1    1    1    1    1    2    1    3    3    1    2    2    3    1    1    2 
##  3.6  3.8  3.9    4  4.1  4.2  4.4  4.5  4.6  4.8  4.9    5  5.1  5.3  5.4  5.5 
##    1    1    7    2    2    4    2    1    2    3    1    3    3    1    1    3 
##  5.7  5.8    6  6.1  6.4  6.8  7.1  7.2  7.4  7.5  7.7  7.9  8.4  8.5  8.6  8.9 
##    1    6    1    1    6    2    2    1    1    1    3    1    2    1    1    1 
##    9  9.6 10.2 10.3 10.4 10.8 10.9 11.1 11.3 11.4 12.2 12.5 12.9 13.9   14 15.4 
##    4    1    1    2    1    1    1    1    1    1    1    1    3    1    1    1 
## 18.6 19.3 25.7 
##    1    1    1
class(tabela_renda)
## [1] "table"