Análisis de Anscombe

Gráfica de Anscombe

#Cargar datos
anscombe <- read.csv2("Data/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

# Cargar la libreria 
library(ggplot2)

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