Отдельные блокпосты для каждого столбца набора данных

Question

У меня есть фрейм данных с 79 столбцами.

Для каждого столбца я пытаюсь создать полностью отделенный блок-график.

Я пытался apply(integers, 2,function(x) boxplot(x, main = colnames(integers["x"])))

Тем не менее, я не могу добавить заголовок каждого столбца к соответствующему блокпосту.

Answer 1

library(tidyverse)


plot_function <- function(column_name, data_in) {

  plot_out <- ggplot(data_in, aes_string(y = column_name)) + 
    geom_boxplot() +
    labs(title = column_name)
  return(plot_out)

}

plot_columns <- names(iris)[1:4]

plot <- lapply(plot_columns, function(x, y) plot_function(x, y), y = iris)
plot[[1]]