r - ggplot2 和对数刻度不显示值 = 1

Question

我想绘制一个带有对数刻度 y 轴的图表：

data <- data.frame(x = seq_len(5), y = c(2,1,100,500,30))
ggplot(data) + aes(x,y) + geom_col() + scale_y_log10()

但是因为水平轴总是在 y = 1 处与垂直轴相交，所以永远不会绘制 y = 1 的条形。

我知道 log(1) = 0，但我可以将绘图基数设置为 0.1 以让条形图从 1 以下开始吗？

Answer 1

另一种解决方案是将条形图的底部放置在 处-Inf，以便log10(1)仍然显示。这有点棘手，因为您必须将条形重新参数化为矩形并让几何图形了解它-Inf是在比例转换之后。

library(ggplot2)

data <- data.frame(x = seq_len(5), y = c(2,1,100,500,30))

ggplot(data) + 
  geom_rect(
    aes(xmin = x - 0.45, xmax = x + 0.45,
        ymin = stage(1, after_scale = -Inf), ymax = y)
  ) +
  scale_y_log10()

^{由reprex 包于 2020-11-03 创建(v0.3.0)}

Answer 2

您不能将 y 的值乘以 10 而是将标签除以相同的数量吗？

ggplot(data) + aes(x, y * 10) +  geom_col() + 
  scale_y_log10(labels = function(x) x/10, name = "y")

你可以对直方图做同样的事情：

set.seed(2)
ggplot(data.frame(x = rnorm(1000)), aes(x)) + 
  geom_histogram(aes(y = ..count.. * 10), color = "black", fill = "gold") +
  scale_y_log10(labels = function(x) x/10, name = "count")