Variables categóricas y continuas
cate <- c('cylinders','model_year','origin')
cont <- setdiff(names(autompg), cate)
for(col in cate) autompg[,col] <- as.factor(autompg[,col])
Diagrama de cajas de variables categóricas
par(mfrow=c(1,2))
boxplot(autompg$mpg, main = 'mpg boxplot')
boxplot(mpg ~ cylinders, data = autompg, col = c('red','blue','green','brown','yellow'), main = 'mpg by cylinders')
abline(h = mean(autompg$mpg), lty = 2, lwd = 3)
abline(h = median(autompg$mpg), lty = 1, lwd = 3)
Histograma de variables continuas
par(mfrow=c(1,2))
hist(autompg$acceleration, main = 'acceleration histogram', xlab = 'acceleration')
abline(v = mean(autompg$acceleration), lty = 2, col = 'red')
abline(v = median(autompg$acceleration), lty = 1, col = 'red')
boxplot(...