Ascombe

Gráfica de Anscombe

# Cargar datos x import dataset
anscombe <- read.csv2("Datos/anscombe.csv")
anscombe$Set <- as.factor(anscombe$Set)
summary(anscombe)

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

library(ggplot2)

grafica <- ggplot(anscombe, aes(x=X,y=Y, color=Set)) + geom_point()
#aquí agrego una geometría de puntos a la gráfica
grafica = grafica + geom_smooth(method = lm, se=FALSE)
grafica <- grafica + facet_wrap(.~Set)
#  facet_wrap(.~Set) es para que me separe los puntos por categorías, es decir que me saque 4 gráficos (porque son 4 categorías)


grafica

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