如何在 ggplot2 中制作箱线图，为数据框/矩阵中的每一列制作一个框？

Question

本质上，我想制作一个包含 5 个箱线图的图。每个框代表每列的 Min/1stQ/Mean/3rdQ/Max，特别是在使用 geom_boxplot() 的 ggplot2 库中。

我的困惑在于 geom_boxplot() 想要将变量作为 x 和 y 参数，但这不是我想要做的。

我希望 X 轴代表列，Y 轴代表每个列的 Min/1stQ/Mean/3rdQ/Max。

Answer 1

由于您没有提供任何可重现的示例，我假设您有一个包含五列的数据框，如下所示：

DF <- mtcars[,c(1,2,5,6,7)]
head(DF)
#                  mpg cyl drat    wt  qsec
#Mazda RX4         21.0   6 3.90 2.620 16.46
#Mazda RX4 Wag     21.0   6 3.90 2.875 17.02
#Datsun 710        22.8   4 3.85 2.320 18.61
#Hornet 4 Drive    21.4   6 3.08 3.215 19.44
#Hornet Sportabout 18.7   8 3.15 3.440 17.02
#Valiant           18.1   6 2.76 3.460 20.22

您想要制作一个包含 5 个箱线图的图，每个箱线图代表每一列。您可能想得到这个。

boxplot(DF, xlab = "column_names", ylab = "column_values", las = 1)
grid()

但是，您希望使用 ggplot 获得类似的绘图。如果是这样，您需要转换 DF，以便 DF 的所有列名称都存储在单个列中，以便可以将其分配给 x< /code>，ggplot 需要的。同样，所有相应的值应存储在另一列中，以便可以将其分配给 ggplot 所需的 y 。您可以使用pivot_longer来完成此转换。

library(tidyverse)
newDF <- DF %>% 
         pivot_longer(col= everything(), 
                      values_to = "column_values", 
                      names_to = "column_names")

newDF
# A tibble: 160 x 2
#   column_names column_values
#   <chr>                <dbl>
# 1 mpg                  21   
# 2 cyl                   6   
# 3 drat                  3.9 
# 4 wt                    2.62
# 5 qsec                 16.5 
# 6 mpg                  21   
# 7 cyl                   6   
# 8 drat                  3.9 
# 9 wt                    2.88
#10 qsec                 17.0 
# ... with 150 more rows

现在可以从 newDF 绘制 5 个箱线图：

newDF %>% ggplot(aes(x = column_names, y = column_values)) +
 geom_boxplot(fill = "grey") + theme_bw()

这是结果图：