Carregar base de dados

library(readxl)
Munic <- read_excel("C:/Users/barba/Desktop/Base_de_dados-master/BasesMunicipios.xlsx")

library(readr)
Familias <- read_delim("C:/Users/barba/Desktop/Base_de_dados-master/Familias2.csv", 
                                              ";", escape_double = FALSE, col_types = cols(`familia;local;p.a.p;instr;tam;renda` = col_double()), 
                                              trim_ws = TRUE) #mudei o encoding)
## Warning: The following named parsers don't match the column names:
## familia;local;p.a.p;instr;tam;renda

Tabelas

tabela_fam <- table(Familias$p.a.p)
#tabela_titanic <- table(Titanic$Sexo)
tabela_munic <- table(Munic$Regiao)

Gerar gráficos pizza

#pie(tabela_fam)
#pie(tabela_titanic)
pie(tabela_munic)

Cor e título

pie(tabela_munic, col=c("red","blue","yellow","purple","white","black","pink","orange"), main= "gráfico 1 - meu primeiro gráfico")

#pie(tabela_titanic, col=c("violetred4","#f2a7a7"), main= "gráfico 2")