Introdução

Vamos trabalhar com importação, manipulação e construção de tabelas no R. Vamos ver também as proporções e gráficos de pizza.

Importação de arquivos no R

Carregar do RData

load("C:/Users/esthe/OneDrive/Documentos/Base_de_dados-master/CARROS.RData")

Importar do Excell

library(readxl)
IDH <- read_excel("Base_de_dados-master/IDH_por_regiao.XLS", 
                  sheet = "Dados")

Importar do CSV

library(readr)
Familias <- read_delim("Base_de_dados-master/Familias2.csv", 
                        delim = ";", escape_double = FALSE, locale = locale(encoding = "WINDOWS-1252"), 
                        trim_ws = TRUE)
## Rows: 120 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ";"
## chr (4): local, p.a.p, instr, renda
## dbl (2): familia, tam
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Limpeza de código

CARROS$Tipodecombustivel = ifelse(CARROS$Tipodecombustivel==0,"Gas","Alc")
class(CARROS$Tipodecombustivel)
## [1] "character"
Familias$renda = gsub(",", "." , Familias$renda)
class(Familias$renda)
## [1] "character"
Familias$renda = as.numeric(Familias$renda)
class(Familias$renda) 
## [1] "numeric"

Gráfico sobre moradia

tabela_parque = table(Familias$local)

pie(tabela_parque)

pie(tabela_parque,col=c("green","pink","red"))

#Parte de proporção

prop.table(tabela_parque)*100
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##           30.83333           33.33333           35.83333

Conclusão

Senhor, me ajuda ```