Essa é a aula 3

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

minhas tabelas

tabela = table(Familias$local)
tabela
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43

meu gráfico de pizza

pie(tabela)

análise dos bairros das famílias