In [1]:
# Carregando os pacotes
require(datasets)
data("swiss")
require(GGally)
require(ggplot2)
In [3]:
# ggpairs
my_fn <- function(data, mapping, ...){
p <- ggplot(data = data, mapping = mapping) +
geom_point() +
geom_smooth(method = loess, fill = "red", color = "red", ...) +
geom_smooth(method = lm, fill = "blue", color = "blue", ...)
p
}
g = ggpairs(swiss, columns = 1:4, lower = list(continuous = my_fn))
g