Anscombe

cuartestos de Anscombe

Ejemplos de ggplott en lase de visualizacion de datos univalle

# Cargar las librerias
library(ggplot2)

# Cargar los datos
datos <- read.csv2("~/Desktop/DOCUMENTOS UNIVALLE/1. Primer Semestre/4.Inteligencia de Negocios BI/Profesor 2/Modulo de visualizacion/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

#visualizacion de 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", x = "Variable X", y = "Variable Y", color = "Set")

lienzo

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