ggplot的scale_y_log10行为 [英] ggplot's scale_y_log10 behavior

问题描述

尝试使用ggplot绘制堆叠的直方图:

Trying to plot a stacked histogram using ggplot:

set.seed(1)
my.df <- data.frame(param = runif(10000,0,1), 
                    x = runif(10000,0.5,1))
my.df$param.range <- cut(my.df$param, breaks = 5)

require(ggplot2)

不记录y轴:

ggplot(my.df,aes_string(x = "x", fill = "param.range")) + 
    geom_histogram(binwidth = 0.1, pad = TRUE) + 
    scale_fill_grey()

给出:

但是我想对y轴进行log10 + 1变换以使其更易于阅读:

But I want to log10+1 transform the y-axis to make it easier to read:

ggplot(my.df, aes_string(x = "x", y = "..count..+1", fill = "param.range")) + 
    geom_histogram(binwidth = 0.1, pad = TRUE) + 
    scale_fill_grey() + 
    scale_y_log10()

给出:

y轴上的刻度线没有意义.

The tick marks on the y-axis don't make sense.

如果我进行log10转换而不是log10 + 1，则会得到相同的行为:

I get the same behavior if I log10 transform rather than log10+1:

ggplot(my.df, aes_string(x = "x", fill = "param.range")) + 
    geom_histogram(binwidth = 0.1, pad = TRUE) + 
    scale_fill_grey() + 
    scale_y_log10()

知道发生了什么吗?

推荐答案

使用堆叠的直方图调用scale_y_log10似乎导致ggplot绘制出每个元素的计数的 product .堆叠在每个x bin中.下面是一个演示.我们在每个param.range bin的计数的每个x bin中创建一个名为product.of.counts的数据框，其中包含产品.我们使用geom_text将这些值添加到绘图中，并看到它们与直方图条形图的每个堆栈的顶部重合.

It looks like invoking scale_y_log10 with a stacked histogram is causing ggplot to plot the product of the counts for each component of the stack within each x bin. Below is a demonstration. We create a data frame called product.of.counts that contains the product, within each x bin of the counts for each param.range bin. We use geom_text to add those values to the plot and see that they coincide with the top of each stack of histogram bars.

起初我以为这是一个错误，但是经过一些搜索之后，我想起了ggplot的方式执行日志转换.如链接的答案中所述，"scale_y_log10进行计数，将其转换为日志，堆叠这些日志，然后以反对数形式显示比例.但是，堆叠日志不是线性变换，因此您将要求这样做没有任何意义."

At first I thought this was a bug, but after a bit of searching, I was reminded of the way ggplot does the log transformation. As described in the linked answer, "scale_y_log10 makes the counts, converts them to logs, stacks those logs, and then displays the scale in the anti-log form. Stacking logs, however, is not a linear transformation, so what you have asked it to do does not make any sense."

举一个简单的例子，说一个堆叠条形图的五个组成部分中的每个组成部分的计数为100.然后，所有五个组成部分的log10(100)= 2，并且对数的总和为10.然后ggplot取反对数比例尺，即使实际高度为100x5 = 500，也可以为条形图的总高度提供10 ^ 10(即100 ^ 5).这正是您的情节正在发生的事情.

As a simpler example, say each of five components of a stacked bar have a count of 100. Then log10(100) = 2 for all five and the sum of the logs will be 10. Then ggplot takes the anti-log for the scale, which gives 10^10 for the total height of the bar (which is 100^5), even though the actual height is 100x5=500. This is exactly what's happening with your plot.

library(dplyr)
library(ggplot2)

# Data
set.seed(1)
my.df <- data.frame(param=runif(10000,0,1),x=runif(10000,0.5,1))
my.df$param.range <- cut(my.df$param,breaks=5)

# Calculate product of counts within each x bin
product.of.counts = my.df %>% 
  group_by(param.range, breaks=cut(x, breaks=seq(-0.05, 1.05, 0.1), labels=seq(0,1,0.1))) %>%
  tally %>%
  group_by(breaks) %>% 
  summarise(prod = prod(n),
            param.range=NA) %>%
  ungroup %>%
  mutate(breaks = as.numeric(as.character(breaks)))

ggplot(my.df, aes(x, fill=param.range)) + 
  geom_histogram(binwidth = 0.1, colour="grey30") + 
  scale_fill_grey() + 
  scale_y_log10(breaks=10^(0:14)) +
  geom_text(data=product.of.counts, size=3.5, 
            aes(x=breaks, y=prod, label=format(prod, scientific=TRUE, digits=3)))

这篇关于ggplot的scale_y_log10行为的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！