Anscombe

#Cuartetos de Anscombe

Ejemplo de ggplot en clase de visualización de datos - Univalle

#Cargar librerías
library(ggplot2)
#Cargar datos
datos <- read.csv2("anscombe.csv")
summary(datos)

##       Set             X            Y         
##  Min.   :1.00   Min.   : 4   Min.   : 3.100  
##  1st Qu.:1.75   1st Qu.: 7   1st Qu.: 6.117  
##  Median :2.50   Median : 8   Median : 7.520  
##  Mean   :2.50   Mean   : 9   Mean   : 7.501  
##  3rd Qu.:3.25   3rd Qu.:11   3rd Qu.: 8.748  
##  Max.   :4.00   Max.   :19   Max.   :12.740

#Visualizar los datos
lienzo <- ggplot(datos, aes(x=X, y=Y, color=as.factor(Set)))
lienzo <- lienzo + geom_point()
lienzo <- lienzo + geom_smooth(method="lm", se=FALSE)
lienzo <- lienzo + facet_wrap(.~as.factor(Set))
lienzo <- lienzo + labs(title="Cuartetos de Anscombe", subtitle = "Ejemplo gráficas", x="Variable X", y="Variable Y", color="Conjuntos")
lienzo

## `geom_smooth()` using formula = 'y ~ x'