En el presente analisis se detalla las estadisticas descriptivas de la base de datos de toyota corolla, la cual es propuesta por Kaggle
BD <- read.csv("E:/02. Cursos_NoCore/Estadistica en RStudio/ToyotaCorolla.csv")
dim(BD) #dimensión de mi data
## [1] 1436 10
length(BD) #columnas
## [1] 10
colnames(BD) #nombre de las columnas
## [1] "Price" "Age" "KM" "FuelType" "HP" "MetColor"
## [7] "Automatic" "CC" "Doors" "Weight"
Analizaremos los datos utilizando una función con FOR.
BDN <- NULL
BDC <- NULL
columna <- length(BD)
par(mfrow=c(c(2,5)))
for(i in 1:columna){
if(is.numeric(BD[ ,i])==TRUE){
texto<-paste("Análisis del atributo",colnames(BD)[i])
hist(BD[ ,i],main=texto,xlab=colnames(BD)[i])
BDN<-c(BDN,i)
} else{
texto<-paste("Análisis del atributo",colnames(BD)[i])
pie(table(BD[ ,i]),main=texto)
BDC<-c(BDC,i)
}
}
BDN
## [1] 1 2 3 5 6 7 8 9 10
BDC
## [1] 4
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.