r - 使用 stat_summary_hex 计算百分比/有条件求和

Question

我有一组纬度/经度值，其中第三个变量可以是 -1 或 1。（示例数据：https ://pastebin.com/WPq90ka1 ）

我正在使用 stat_summary_hex 将此数据映射到十六进制箱：

single <- read.csv(file="mysamplefile.csv",head=TRUE)

pdxMap <- get_stamenmap(bbox = c(left = -122.844435, bottom = 45.42, right = 
-122.43, top = 45.665316), zoom = 11, maptype = "toner")

ggmap(pdxMap) + 
  coord_equal() + theme(aspect.ratio = 1)  +
  stat_summary_hex(data=single, aes(x=LONGITUDE,y=LATITUDE,z = Value),
                   fun = function(z) mean(z),
                   alpha = .9, bins=50) +
  scale_fill_gradientn(colors=c('#4393c3', '#ffffff', '#d6604d'))

但是，我不想计算均值（z），而是更喜欢计算值为 1 的百分比，即：（值的总和 = 1）/（所有绝对值的总和（值））

分母不是问题，但我不知道如何管理分子。任何指导将不胜感激！

标签： rggplot2ggmap