grafico sobre moradia

estou explicando sobre a divisão das moradias em alguns bairros

# PASSO 1 - Importação de dados do excel
library(readxl)
Familias <- read_excel("C:/Users/usuario/Downloads/Base_de_dados-master/Base_de_dados-master/Familias.xls")
View(Familias)

A minha tabela

fiz uma tabela interessante

R Markdown

tabela <- table(Familias$p.a.p)                         
tabela
## 
## Não usa     Usa 
##      42      78

depois disso fiz uma tabela de proporção

tabela_2 <- table(Familias$local)
tabela_2
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43
pie(tabela)