Análisis 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

Esta es la cabeza y la cola del dataset

head(anscombe)

##   Set  X    Y
## 1   1 10 8.04
## 2   1  8 6.95
## 3   1 13 7.58
## 4   1  9 8.81
## 5   1 11 8.33
## 6   1 14 9.96

tail(anscombe)

##    Set  X     Y
## 39   4  8  7.04
## 40   4  8  5.25
## 41   4 19 12.50
## 42   4  8  5.56
## 43   4  8  7.91
## 44   4  8  6.89

#Cargar libreria
library(ggplot2)

grafica <- ggplot(anscombe,aes(x=X,y=Y,color=Set)) + geom_point()
grafica<- grafica + facet_wrap(.~Set)
grafica