Cuartetos de AnsCombe

Ejemplo de ggplot en clase de visualizacion de datos univalle

# cargar librerias
library(ggplot2)

# cargar datos
data(anscombe)

#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 datos
lienzo <- ggplot(datos, aes(x = X, y = Y,color=as.factor(Set)))
lienzo <- lienzo + geom_point()
lienzo <- lienzo + facet_wrap(~Set)

#correlacion de los datos
lienzo <- lienzo + geom_smooth(method = "lm", se = FALSE)



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