Meu primeiro Gráfico

Introdução

Aqui vou colocar os primeiros graficos

FASE 01 - Importar os bancos de dados

carregar do excel

library(readxl)
BasesEstados <- read_excel("D:/OneDrive/Documentos/Base_de_dados-master/BasesEstados.xlsx", 
                           sheet = "dados")



# carregar do CSV
library(readr)
Fifa <- read_csv("D:/OneDrive/Documentos/Base_de_dados-master/FifaData.csv")

## 
## -- Column specification --------------------------------------------------------
## cols(
##   .default = col_double(),
##   Name = col_character(),
##   Nationality = col_character(),
##   National_Position = col_character(),
##   Club = col_character(),
##   Club_Position = col_character(),
##   Club_Joining = col_character(),
##   Height = col_character(),
##   Weight = col_character(),
##   Preffered_Foot = col_character(),
##   Birth_Date = col_character(),
##   Preffered_Position = col_character(),
##   Work_Rate = col_character()
## )
## i Use `spec()` for the full column specifications.

# carregar do formato R

load("D:/OneDrive/Documentos/Base_de_dados-master/CARROS.RData")


# FASE 2 - Manipular os bancos de dados

#1 - verificar se as variaveis estão categorizadas corretamente (continua, qualitativa, quantitativa...)


summary(CARROS$Kmporlitro)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   10.40   15.43   19.20   20.09   22.80   33.90

summary(Fifa$Nationality)

##    Length     Class      Mode 
##     17588 character character

summary(BasesEstados$PIB)

##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
## 7.314e+06 2.945e+07 8.083e+07 1.627e+08 1.695e+08 1.409e+09

summary(CARROS$Tipodecombustivel)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.0000  0.0000  0.0000  0.4375  1.0000  1.0000

class(CARROS$Tipodecombustivel)

## [1] "numeric"

class(Fifa$Nationality)

## [1] "character"

class(CARROS$TipodeMarcha)

## [1] "numeric"

# como transformar de quantitativa para qualitativa nominal

CARROS$Tipodecombustivel<- as.factor(CARROS$Tipodecombustivel)
CARROS$TipodeMarcha <- as.factor(CARROS$TipodeMarcha)
Fifa$Nationality <- as.factor(Fifa$Nationality)

CARROS$tipodecombustivel_2 <- ifelse(CARROS$Tipodecombustivel=="0", "Gas", "Alc")
CARROS$tipodecombustivel_2 <- as.factor(CARROS$tipodecombustivel_2)
CARROS$Tipodemarcha_2 <- as.factor(CARROS$TipodeMarcha)
CARROS$Tipodemarcha_2 <- ifelse(CARROS$TipodeMarcha=="0", "auto", "manual")

#FASE 3 - CONSRTRUCAO DAS ESTATISTICAS

tabela_combustivel <- table(CARROS$tipodecombustivel_2)
tabela_combustivel

## 
## Alc Gas 
##  14  18

prop.table(tabela_combustivel)*100

## 
##   Alc   Gas 
## 43.75 56.25

pie(tabela_combustivel)

vet4 <- c("red","blue","green")
pie(tabela_combustivel, col = c("red","blue"))

pie(tabela_combustivel, col = c("#b37f7f","#c74a4a"),
    main = "Meu Primeiro Gráfico no R!")

tabela_fifa <- table(Fifa$Nationality)
pie(tabela_fifa)

barplot(tabela_combustivel,col = c("#b37f7f","#c74a4a"),ylim = c(0,20))

aqui vou continuar escrevendo