Analisis Anscombe

Gráfica de Anscombe

#Cargar datos
anscombe <- read.csv2("anscombe.csv")
summary(anscombe)

##       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

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

#install.packages("ggplot2")
library(ggplot2)
grafica <- ggplot(anscombe, aes(x=X,y=Y,color=Set))
grafica <- grafica + geom_point()
grafica <- grafica + geom_smooth(method = lm, se=FALSE)
grafica <- grafica + facet_wrap(.~ anscombe$Set)
grafica

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