밀도 그림(Density Plot)

Density Plot

install.packages("tidyverse")
install.packages("ggpubr")
install.packages("gridExtra")
library(tidyverse)
library(ggpubr)
library(gridExtra)

density.plots <- iris %>%
   purrr::keep(is.numeric) %>%   # numeric인 4개의 열만 추출함
   purrr::map(ggpubr::ggdensity) # 각 열에 대한 density plot를 작성함

# 4개의 density plot를 하나의 그래픽 화면에 출력하기
gridExtra::grid.arrange(grobs = density.plots, nrow = 2, ncol = 2)