Cuartetos de Anscombe

Ejemplo de ggplot en clase de visualizacion de datos. Univalle

# install.packages ("ggplot2")
# cargar librerias
library (ggplot2)

#cargar datos
DATOS <- read.csv2("C:/Users/LENOVO/Desktop/MAESTRIA ANALISIS DE DATOS/INTELIGENCIA DE NEGOCIOS/BASE DE DATOS BI2/INTELIG.NB2/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 los datos
lienzo <- ggplot(DATOS,aes(x=X, y=Y,color= as.factor(Set)))
lienzo <- lienzo + geom_point() 
lienzo <- lienzo + geom_smooth(method="lm", se=FALSE)
lienzo <- lienzo + facet_wrap(.~as.factor(Set))
lienzo <- lienzo +labs (title="Cuartetos de Anscombe", subtitle = "Ejemplo graficas", x="Variable X", y="Variable Y", color="Conjuntos")

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