Test

Titulo

Subtitulo

cualquier cosa.

winequality.red <- read.csv("C:/Users/Rodolfo/Downloads/winequality-red.csv")

dim(winequality.red) 

## [1] 1599   12

length(winequality.red)

## [1] 12

colnames(winequality.red)

##  [1] "fixed.acidity"        "volatile.acidity"     "citric.acid"         
##  [4] "residual.sugar"       "chlorides"            "free.sulfur.dioxide" 
##  [7] "total.sulfur.dioxide" "density"              "pH"                  
## [10] "sulphates"            "alcohol"              "quality"

WBDN <- NULL
WBDC <- NULL
columna <- length(winequality.red)

par(mfrow=c(2,6))

Analisi grafico segun tipo de variable

Analizaremos los datos

for (i in 1:columna) {
  if(is.numeric(winequality.red[,i])== TRUE){
    texto <- paste("Analisis del atributo ",colnames(winequality.red)[i])
    hist(winequality.red[,i],col=i,main=texto, xlab= colnames(winequality.red)[i])
    WBDN <- c(winequality.red,i)
  } else {
    texto2 <- paste("Analisis del atributo ",colnames(winequality.red)[i])
    pie(table(winequality.red[ ,i]),main= texto2)
    winequality.red <- c(winequality.red,i)
  }
}

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.