如何將變量傳遞到函數的ggplot aes / ..y ..部分

Question

我正在查看將transform傳遞到下面的函數中，以便能夠對齊輔助軸...但是，出現錯誤：

Error in y * transform : non-numeric argument to binary operator

library(ggplot2)
a.samples <- rbeta(10000, 25, 75)
b.samples <- rbeta(10000, 35, 65)

df <- data.frame(x = b.samples/a.samples)

p <- ggplot(df, aes(x = x)) + geom_histogram(fill = 'grey50', alpha = .6)

transform <- max(ggplot_build(p)$data[[1]]$ymax)

p + geom_line(aes(y = ..y.. * transform), stat='ecdf') + # error here
    geom_vline(xintercept = 1, linetype = 'dashed') +
    scale_y_continuous(sec.axis = sec_axis(~./transform, name = "ecdf")) +
    guides(color = FALSE)

如果我將值1260明確寫入aes參數，它將起作用。

...geom_line(aes(y = ..y.. * 1260), stat='ecdf')...

Answer 1

能夠aes_string與aes_string一起aes_string

p + geom_line(aes_string(y = paste0('..y.. * ', transform)), stat='ecdf') + 
    geom_vline(xintercept = 1, linetype = 'dashed') +
    scale_y_continuous(sec.axis = sec_axis(~./transform, name = "ecdf")) +
    guides(color = FALSE)

Answer 2

因此，您上面的代碼對我來說很奇怪，除了binwidths關閉以外，沒有任何其他錯誤，所以我不知道是什么產生了錯誤，但是我只是通過添加stat_ecdf（）進行了調整

library(ggplot2)
a.samples <- rbeta(10000, 25, 75)
b.samples <- rbeta(10000, 35, 65)

df <- data.frame(x = b.samples/a.samples)

p <- ggplot(df, aes(x = x)) + geom_histogram(fill = 'grey50', alpha = .6)

transform <- max(ggplot_build(p)$data[[1]]$ymax)
transform
p + stat_ecdf(aes(y = ..y.. * transform),geom = "line") + 
  geom_vline(xintercept = 1, linetype = 'dashed') +
  scale_y_continuous(sec.axis = sec_axis(~./transform, name = "ecdf")) +
  guides(color = FALSE)