如何在ggplot2的aes中使用ifelse？函数生成图表排序异常排查

你的代码存在几个关键问题，导致图表排序不符合预期：

1. 字符串列名的引用方式错误 #

你使用{{col}}来引用字符串类型的列名，但{{}}是**非标准计算（NSE）**语法，仅适用于裸变量名（比如直接写questao而非字符串"questao"）。当col是字符串时，应该用.data[[col]]来正确引用对应列。

2. select语句的变量赋值逻辑错误 #

select(everything(), var = {{col}})这一行中，由于col是字符串，{{col}}无法正确解析，导致var列没有被正确创建，后续reorder(var, -n)自然无法按预期生效。

3. aes中用ifelse处理排序的逻辑缺陷 #

在aes(x = ifelse(m_col == TRUE, reorder(var, -n), var))里，ifelse会返回字符向量，而reorder生成的是因子类型，两种类型混合后会丢失排序信息，导致x轴回到默认的字母排序。

修正后的代码 #

generateGraph <- function(data, m_col = FALSE) {
  # 确定用于x轴的目标列名（字符串）
  target_col <- if(m_col) names(data)[2] else names(data)[1]
  
  # 提前处理数据：提取目标列、按需求排序并锁定因子顺序
  processed_data <- data |>
    mutate(var = .data[[target_col]]) |>
    {
      if(m_col) arrange(desc(n)) else identity()
    }() |>
    mutate(var = factor(var, levels = unique(var)))
  
  # 生成图表
  ggplot(processed_data, aes(x = var,
                             y = n,
                             ymin = n_low,
                             ymax = n_upp)) +
    geom_bar(stat = "identity",
             fill = "#273499",
             alpha = .8,
             width = .7)
}

# 调用测试
generateGraph(question, m_col = TRUE)

关键改动说明 #

• 用.data[[target_col]]正确引用动态字符串列名，这是R中处理动态列的标准做法。
• 在数据预处理阶段完成排序，再将var转为因子并指定levels，确保ggplot严格遵循我们设定的顺序。
• 移除冗余的select语句，直接用mutate创建var列，逻辑更简洁清晰。

修改后，当m_col=TRUE时，x轴会按照n的降序排列，与预期结果一致。

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