数据集每一列的分隔箱线图

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]]