使用alpha美学映射的ggplot2 stat_summary_hex示例？

Question

我正在使用ggplot2 stat_summary_hex函数绘制客户流失。

stat_summary_hex(aes(x = Lon, y = Lat, z = Churn),
   bins=100, colour = NA, geom = "hex", fun = function(x) sum(x))

ScaleFill <- scale_fill_gradient2(low = "blue", high = "orange", na.value = NA)

stat_summary_hex是在get_map的底图上绘制的，所以我想设置alpha比例，使得接近0的汇总值的alpha为0.但是，它看起来stat_summary_hex不承认alpha美学。

是否有人有stat_summary_hex alpha映射的示例？

Answer 1

我找到了一个解决办法，设置drop = TRUE，然后更改stat_summary_hex函数，以便在结果低于我的阈值时返回NA：

stat_summary_hex(aes(x = Lon, y = Lat, z = Churn),
  bins=100, colour = NA, geom = "hex", drop = TRUE,
  fun = function(x) if(abs(sum(x)) > 5) {sum(x)} else {NA})