Следующий сюжет
Генерируется с помощью следующего кода:
library(GGally)
dat <- read.csv("http://www.ats.ucla.edu/stat/data/tobit.csv")
ggpairs(dat[, c("read", "math", "apt")])
Как я могу добавить линию корреляции для каждого графика рассеяния выше?
Что-то вроде этого?
ggpairs(dat[, c("read", "math", "apt")],lower = list(continuous = "smooth", params = c(method = "loess", fill = "blue"))
Вы можете настроить диаграммы рассеяния в нижнем треугольнике по своему усмотрению с помощью функции, подобной приведенной ниже:
library(GGally)
dat <- ggplot2::diamonds[1:1000, c("x", "y", "z")] # Example data
# Customize your scatterplots as you wish here:
lowerfun <- function(data, mapping) {
ggplot(data = data, mapping = mapping)+
geom_point(alpha = .25) +
geom_smooth(method = "loess", formula = y ~ x,
fill = "blue", color = "red", size = 0.5)
}
# Plot the scatterplot matrix
ggpairs(dat, lower = list(continuous = wrap(lowerfun)))
