在ggplot2中是否有内置的对数色标？

这是装箱密度图的示例：

require(ggplot2)
n <- 1e5
df <- data.frame(x = rexp(n), y = rexp(n))
p <- ggplot(df, aes(x = x, y = y)) + stat_binhex()
print(p)

调整色阶以使中断以对数间隔很好，但是尝试一下

my_breaks <- round_any(exp(seq(log(10), log(5000), length = 5)), 10)
p + scale_fill_hue(breaks = as.factor(my_breaks), labels = as.character(my_breaks))

结果Error: Continuous variable () supplied to discrete scale_hue.似乎中断是期望因素（也许吗？），设计时考虑了分类变量？

我将发布一个不内置的解决方法作为答案，但是我认为我可能对使用迷失了方向scale_fill_hue，我想知道是否有明显的缺失。

是! 我以前错过了的trans论点scale_fill_gradient。这样，我们可以获得具有适当图例和色标以及简洁的语法的解决方案。p从问题中使用和my_breaks = c(2, 10, 50, 250, 1250, 6000)：

p + scale_fill_gradient(name = "count", trans = "log",
                        breaks = my_breaks, labels = my_breaks)

我的其他答案最好用于更复杂的数据功能。Hadley的评论鼓励我在底部的示例中找到此答案?scale_gradient。

另一种方式，在中使用自定义函数stat_summary_hex：

ggplot(cbind(df, z = 1), aes(x = x, y = y, z = z)) + 
  stat_summary_hex(function(z){log(sum(z))})

这是现在的一部分ggplot，但最初是由@kohske在此答案中提供了自定义的精美代码启发的stat_aggrhex。在ggplot> 2.0的版本中，使用上面的代码（或其他答案）

ggplot(cbind(df, z = 1), aes(x = x, y = y, z = z)) +
    stat_aggrhex(fun = function(z) log(sum(z))) +
    labs(fill = "Log counts")

要生成此图。