在 ggplot2 中显示自定义轴标签

Question

我想在同一个图上绘制直方图和密度。我想在下面添加的是自定义 y 轴标签，类似于 sprintf("[%s] %s", ..density.., ..count..) - 一个刻度值处的两个数字。是否有可能通过scale_y_continuous 获得这个，或者我需要以某种方式解决这个问题？

低于使用scales::trans_new 和sec_axis 的当前进度。 sec_axis 是可以接受的，但最理想的输出如下图所示。

set.seed(1)
var <- rnorm(4000)
binwidth <- 2 * IQR(var) / length(var) ^ (1 / 3)


count_and_proportion_label <- function(x) {
  sprintf("%s [%.2f%%]", x, x/sum(x) * 100)
}


ggplot(data = data.frame(var = var), aes(x = var, y = ..count..)) +
  geom_histogram(binwidth = binwidth) +
  geom_density(aes(y = ..count.. * binwidth)) +
  scale_y_continuous(
    # this way
    trans = trans_new(name = "count_and_proportion",
                      format =  count_and_proportion_label,
                      transform = function(x) x,
                      inverse = function(x) x),
    # or this way
    sec.axis = sec_axis(trans = ~./sum(.),
                        labels = percent,
                        name = "proportion (in %)")
  )

在基于graphics::hist 输出之前，我尝试创建带有中断的对象 - 但这两个直方图不同。

bins <- (max(var) - min(var))/binwidth
hdata <- hist(var, breaks = bins, right = FALSE)
# hist generates different bins than `ggplot2`

最后我想得到这样的东西：

Answer 1

添加百分比作为辅助轴是否可以接受？例如

your_plot + scale_y_continuous(sec.axis = sec_axis(~.*2, name = "[%]"))

也许可以将辅助轴覆盖在主轴上，但我不确定您将如何做到这一点。

Answer 2

您可以通过创建一组自定义标签并将其添加到绘图中来实现所需的输出：

library(tidyverse)
library(ggplot2)

set.seed(1)
var <- rnorm(400)
bins <- .1

df <- data.frame(yvals = seq(0, 20, 5), labels = c("[0%]", "[10%]", "[20%]", "[30%]", "[40%]"))
df <- df %>% tidyr::unite("custom_labels", labels,  yvals, sep = " ", remove = TRUE)

ggplot(data = data.frame(var = var), aes(x = var, y = ..count..)) +
  geom_histogram(aes(y = ..count..), binwidth = bins) +
  geom_density(aes(y = ..count.. * bins), color = "black", alpha = 0.7) +
  ylab("[density] count") +
  scale_y_continuous(breaks = seq(0, 20, 5), labels = df$custom_labels)