将 geom_histogram 与 scale_y_log10 一起使用时如何抑制零

Question

我正在尝试使用 ggplot、geom_histogram 和 scale_y_log10 绘制具有 log y 比例的直方图。大多数区域（计数大于 1 的区域）显示正确：背景是透明的，直方图条用默认颜色黑色填充。但是在计数为 1 时，颜色会反转：黑色背景和直方图条的透明填充。此代码（如下）在图中生成示例。

谁能解释一下造成这种情况的原因？我了解对数刻度带来的问题，但我似乎无法找到解决方案。我希望有一个简单的解决方法，或者我忽略了一些东西。

set.seed(1)
df <- data.frame(E=sample(runif(100), 20, TRUE))
ggplot(df,aes(E)) + geom_histogram(binwidth=0.1) + scale_y_log10(limits=c(0.1,100)) + xlim(0,1)

Answer 1

您可以将drop=TRUE 添加到geom_histogram 调用以丢弃计数为零的垃圾箱（有关详细信息，请参阅?stat_bin）：

set.seed(1)
df <- data.frame(E=sample(runif(100), 20, TRUE))
ggplot(df,aes(E)) + 
  geom_histogram(binwidth=0.1, drop=TRUE) + 
  scale_y_log10(limits=c(0.1,100)) + 
  xlim(0,1)

编辑：由于比例从 1 开始，因此不可能显示高度为 1 的条形图。正如 this answer 中提到的，您可以选择从不同的级别开始，但这可能会产生误导。无论如何，这是代码：

require(scales)
mylog_trans <- 
function (base = exp(1), from = 0) 
{
  trans <- function(x) log(x, base) - from
  inv <- function(x) base^(x + from)
  trans_new("mylog", trans, inv, log_breaks(base = base), domain = c(base^from, Inf))
}

ggplot(df,aes(E)) + 
  geom_histogram(binwidth=0.1, drop=TRUE) + 
  scale_y_continuous(trans = mylog_trans(base=10, from=-1), limits=c(0.1,100)) +
  xlim(0,1)