使用函数时fct_reorder报错的问题求助

问题重现 #

需求：为数据的不同列生成箱线图，按y变量升序重新排列x轴的因子类别。单独运行代码时功能正常：

data(mpg)

ggplot(data = mpg) +
  geom_boxplot(aes(fct_reorder(class, hwy), y = hwy))

但封装为函数并通过map()批量调用时，出现长度不匹配错误：

library(purrr)
library(gridExtra)

bp <- function(param){
  parameter <- mpg[,param]
  ggplot(data = mpg) +
    geom_boxplot(aes(fct_reorder(class, parameter)))
}

target_parameters <- c("hwy", "cty")

grid.arrange(grobs = map(target_parameters, bp))

# 错误提示：
# Error in fct_reorder(as.factor(class), parameter) : 
#  length(f) == length(.x) is not TRUE

错误原因 #

1. 向量提取方式错误：mpg是tibble格式，使用mpg[,param]提取单列时，返回的是单列tibble而非原子向量。fct_reorder要求第一个参数（class，长度为数据行数）和第二个参数（排序依据）长度完全一致，但单列tibble的长度为1（列数），因此触发长度不匹配报错。
2. 缺失y轴映射：封装函数时未指定y轴变量，箱线图无法正确识别数值轴。

修正方案 #

方案一：用[[提取原子向量 #

通过[[直接提取列对应的向量，确保长度与class匹配，同时补充y轴映射：

library(ggplot2)
library(purrr)
library(gridExtra)

data(mpg)

bp <- function(param){
  parameter <- mpg[[param]] # 用[[提取原子向量
  ggplot(data = mpg) +
    geom_boxplot(aes(x = fct_reorder(class, parameter), y = parameter)) +
    labs(x = "class", y = param) # 可选：为每个图添加对应y轴标签
}

target_parameters <- c("hwy", "cty")

grid.arrange(grobs = map(target_parameters, bp))

方案二：使用.data代词直接引用列 #

利用ggplot的.data代词，直接在aes()中通过字符名引用数据列，无需提前赋值变量：

library(ggplot2)
library(purrr)
library(gridExtra)

data(mpg)

bp <- function(param){
  ggplot(data = mpg) +
    geom_boxplot(aes(x = fct_reorder(class, .data[[param]]), y = .data[[param]])) +
    labs(x = "class", y = param)
}

target_parameters <- c("hwy", "cty")

grid.arrange(grobs = map(target_parameters, bp))

内容的提问来源于stack exchange，提问作者ksinva