如何在引用表达式中传递变量至返回函数的函数（ggplot场景）

你遇到的核心问题是ggplot的非标准求值（NSE）环境和闭包函数结合时的变量捕获问题——你的custom_percent闭包本身逻辑没问题，但在ggplot的stat环境里，变量的求值范围和你预期的不一样，导致n没有拿到正确的数据集总条数。

先看修正后的可行代码 #

首先保留你的custom_percent函数不变：

library(ggplot2)
library(scales) # 用于percent()函数

custom_percent <- function(n){
  function(x){
    return(paste(percent(x), sprintf('(%d)', round(x * n))))
  }
}

方法1：提前计算总条数（推荐，更清晰）

先在全局环境算出数据集的总条数，再传递给闭包，这样闭包能直接捕获正确的n值：

mydata = data.frame(x = rep(c('a','b','c'), each=100))
# 提前计算总条数
total_n <- nrow(mydata)

ggplot(mydata) +
  geom_text(
    aes(
      x = x, 
      y = after_stat(prop), 
      label = custom_percent(total_n)(after_stat(prop))
    ),
    stat = 'count'
  )

方法2：在stat环境内获取总条数

如果不想提前计算，也可以利用stat='count'生成的count统计量，通过sum(count)拿到数据集总条数：

ggplot(mydata) +
  geom_text(
    aes(
      x = x, 
      y = after_stat(prop), 
      label = custom_percent(after_stat(sum(count)))(after_stat(prop))
    ),
    stat = 'count'
  )

原代码的问题分析 #

1. 变量求值范围错误：原代码里的length(x)是在ggplot的stat分组环境里求值的，这里的x是每个分组（a/b/c）对应的子集，所以length(x)返回100，而不是整个数据集的300，导致括号里的数字计算错误。
2. 引用方式不当：bquote(.(custom_percent)(length(x))(..prop..))的写法没有正确把n的有效值传递给闭包，ggplot的NSE环境会干扰变量的捕获逻辑。

另外补充：ggplot 3.3.0版本之后，推荐用after_stat()代替旧的..prop..写法，语义更明确，代码可读性更高。

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