Coordinadas paralelas

#Estadísticas descriptivas

#cargamos la base de datos que se encuentra abriendo la libreria de ggplot

library(ggplot2)

## Registered S3 methods overwritten by 'tibble':
##   method     from  
##   format.tbl pillar
##   print.tbl  pillar

str(iris)

## 'data.frame':    150 obs. of  5 variables:
##  $ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
##  $ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
##  $ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
##  $ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
##  $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...

#Dispersión

View(iris)

#Gráfica de dispersión por colores
grafica <- ggplot (iris, aes(Sepal.Length, Sepal.Width, color=Species))
grafica <- grafica + geom_point()
grafica

#Cajas y bigotes

#Caja bigote
grafica <- ggplot (iris, aes(Sepal.Length, Sepal.Width, color=Species))
grafica <- grafica + geom_boxplot()
grafica <- grafica + geom_point(alpha=1.3)
grafica <- grafica + facet_grid(.~Species)
grafica

#Coordinadas paralelas

#abrir libreria "GGally"
library(GGally)

## Warning: package 'GGally' was built under R version 4.0.5

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2

grafica <- ggparcoord(iris, columns=c(1:4), groupColumn="Species", order=c(3, 4, 1, 2))
grafica