Install Packages
install.packages("GGally")
Load Packages
library(tidyverse)
library(GGally)
Pairwise Plot
ggpairs(iris)
Activity 1
ggpairs(iris, aes(color = Species))
Correlation Plot
ggcorr(iris)
Activity 2
ggcorr(iris) +
scale_fill_viridis_c()
Activity 3
ggcorr(iris) +
scale_fill_viridis_c(limits = c(-1, 1))
Activity 4
ggpairs(gapminder, columns = c("gdpPercap", "lifeExp", "pop", "continent"), aes(color = continent))
Activity 5
ggplot(gapminder, aes(x = continent, y = lifeExp)) +
geom_boxplot(aes(fill = continent))
# OR
pm <- ggpairs(gapminder, columns = c("gdpPercap", "lifeExp", "pop", "continent"), aes(color = continent))
pm[2,4]
Coefficient Plots
fit <- lm(Sepal.Length ~ Sepal.Width + Petal.Length + Petal.Width, data = iris)
ggcoef(fit)
ggcoef(fit, exclude_intercept = TRUE)