Toyota

Data banco

Cargamos la data del excel en R

#Cargamos el data.frame 
toyota<- read.csv("C:/Users/luiza/Downloads/00-diplomado/03-r/ToyotaCorolla.csv")

Vista

Revisamos los tipos de variable y una muestra

## 'data.frame':    1436 obs. of  10 variables:
##  $ Price    : int  13500 13750 13950 14950 13750 12950 16900 18600 21500 12950 ...
##  $ Age      : int  23 23 24 26 30 32 27 30 27 23 ...
##  $ KM       : int  46986 72937 41711 48000 38500 61000 94612 75889 19700 71138 ...
##  $ FuelType : chr  "Diesel" "Diesel" "Diesel" "Diesel" ...
##  $ HP       : int  90 90 90 90 90 90 90 90 192 69 ...
##  $ MetColor : int  1 1 1 0 0 0 1 1 0 0 ...
##  $ Automatic: int  0 0 0 0 0 0 0 0 0 0 ...
##  $ CC       : int  2000 2000 2000 2000 2000 2000 2000 2000 1800 1900 ...
##  $ Doors    : int  3 3 3 3 3 3 3 3 3 3 ...
##  $ Weight   : int  1165 1165 1165 1165 1170 1170 1245 1245 1185 1105 ...

Ploteo

Graficamos las 10 variables de acuerdo al tipo

#Graficamos de acuerdo al tipo de variable
for (i in 1:columnas) {
  if(is.numeric(toyota[,i])==TRUE)
  {
    
    texto <- paste("Histograma de la variable ", colnames(toyota)[i])
    hist(toyota[,i], col = i, main = texto, xlab = colnames(toyota)[i], ylab="Frecuencia")
  }
  else
  {
    
    texto <- paste("Grafico pie de la variable ", colnames(toyota)[i])
    pie(table(toyota[,i]), main = texto, xlab=colnames(toyota)[i], ylab="Frecuencia")
    
  }
}