ggplot2：geom_histogram'Y'轴美学

Question

我试图在ggplot2不支持多个轴的事实上作弊（我知道使用2个轴并不理想。） 我有一个geom_point，并希望在其上添加geom_histogram。这里的欺骗是以某种方式操纵“Y＆＃39;轴缩放以匹配geom_point中的一个。

geom_histogram语法如下：

geom_histogram(data=df, aes(x=x1, y=..count..))

对我而言，有趣的部分是＆＃39; y＆＃39;美学中的轴，..count..（或..density..，..ncount..等）可以通过以下方式进行操作：

geom_histogram(data=df, aes(x=x1, y=..count..+100))

这会在每个bin中为你的变量x1计数增加100：

set.seed(1)
df <- data.frame(x1=rnorm(200))

ggplot(df)+
  geom_histogram(aes(x=x1, y=..count..+100))

现在，当我尝试做同样的事情但更换＆＃39; 100＆＃39;有了变量，我收到一个错误：

var <- 100

ggplot(df)+
  geom_histogram(aes(x=x1, y=..count..+var))

Error in eval(expr, envir, enclos) : object 'var' not found

我认为这个错误是因为我在aes()内部，所以我的问题是：为什么会发生这种情况？如何使用变量来操纵这个＆＃39; y＆＃39;轴？