Visualizacion1

data <- read.csv2("~/Downloads/anscombe.csv")

str(data)

data$set <- as.factor(data$Set)

str(data)

##install.packages("ggplot2")

library(ggplot2)

lienzo <- ggplot(data, aes(x=X, y=Y))
lienzo <- lienzo + geom_point(aes(color=Set))
lienzo <- lienzo + geom_smooth(method="lm", se=FALSE)
lienzo <- lienzo + facet_wrap(~set)

Opción Esquisse

install.packages("esquisse")
library(esquisse)