數據集每一列的分隔箱線圖

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