RData

# carregando um arquivo dp RData
load("C:/Users/rioch/Desktop/Base_de_dados-master/CARROS.RData")

Excel

# importando arquivo do Excel
library(readxl)
IDH <- read_excel("C:/Users/rioch/Desktop/Base_de_dados-master/IDH_por_regiao.XLS", 
                  sheet = "Dados")
View(IDH)

Familia

# Importando do CSV 
library(readr)
Familia <- read_delim("C:/Users/rioch/Desktop/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
## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.
View(Familia)

Graficos

# analise básica (variavel qualitativa)



tabela_comb = (CARROS$Tipodecombustivel)
tabela_comb
##  [1] 0 0 1 1 0 1 0 1 1 1 1 0 0 0 0 0 0 1 1 1 1 0 0 0 0 1 0 1 0 0 0 1
tabela_marcha = table(CARROS$TipodeMarcha)
tabela_marcha
## 
##  0  1 
## 19 13
tabela_local = table(Familia$local)
tabela_local
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43
tabela_pap = table(Familia$p.a.p)
tabela_pap
## 
## Não usa     Usa 
##      42      78
prop.table(tabela_comb)*100
##  [1] 0.000000 0.000000 7.142857 7.142857 0.000000 7.142857 0.000000 7.142857
##  [9] 7.142857 7.142857 7.142857 0.000000 0.000000 0.000000 0.000000 0.000000
## [17] 0.000000 7.142857 7.142857 7.142857 7.142857 0.000000 0.000000 0.000000
## [25] 0.000000 7.142857 0.000000 7.142857 0.000000 0.000000 0.000000 7.142857
prop.table(tabela_marcha)*100
## 
##      0      1 
## 59.375 40.625
prop.table(tabela_local)*100
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##           30.83333           33.33333           35.83333
prop.table(tabela_pap)*100
## 
## Não usa     Usa 
##      35      65
# Grafico de pizza
tabela_comb
##  [1] 0 0 1 1 0 1 0 1 1 1 1 0 0 0 0 0 0 1 1 1 1 0 0 0 0 1 0 1 0 0 0 1
pie(tabela_comb)

pie(tabela_comb,col = c("green","pink"))

pie(tabela_marcha,col = c("red","blue"))

tabela_local
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43
pie(tabela_marcha,col = c("skyblue","royalblue","darkblue"))