Inteligencia

Cuartetos de Anscombe

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

# Cargar Librerias
library(ggplot2)

# cargar los 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 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 de graficos", x='variable X', y='variable Y', color='Cuarteto')

lienzo 

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