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)