如何在R中对DataFrame的多个列同时绘制直方图？

在R中，如果你想同时对DataFrame的多个列绘制直方图，你可以稍微修改一下之前的示例。下面是一个示例，假设有DataFrame `df` 和你想同时分析的列名列表 `columns_to_plot`：

首先，你需要加载必要的库并准备数据：

library(ggplot2)
library(tidyr)

# 假设 columns_to_plot 是你要画直方图的列名列表
columns_to_plot <- c('column1', 'column2', 'column3') 

# 对DataFrame的指定列进行整理，便于ggplot使用
df_long <- df %>% 
  gather(key = variable, value = value, columns_to_plot)

然后，你可以使用 `map()` 函数应用到每一列上创建直方图，并使用 `bind_rows()` 将结果组合在一起：

histograms <- map_df(df_long$variable, ~{
  .x %>% 
    ggplot(aes(x = value)) +
    geom_histogram(binwidth = 5, fill = "lightblue", alpha = 0.7) +
    labs(title = .x, x = "", y = "Frequency")  # 设置图表标题和轴标签
}) %>%
  select(-variable)  # 如果不需要原始变量名，移除这一列

histograms

这将会生成一个包含所有指定列直方图的单个数据框。