r - 如何在ggplot中实现绝对百分比？

Question

我正在尝试使用 gpplot 在堆叠图中绘制正数和负数。根据我在此页面上找到的示例，这工作正常。

我的图表的限制是 -1 和 1，但我希望比例尺将标签显示为绝对百分比，即从左侧的 100% 超过中心的 0% 到右侧的 100%。

下面的最小示例说明我可以获得百分比刻度标签( labels = percent )或绝对刻度( labels = abs )，但我不知道如何组合它们。

提前致谢。

library(tidyverse)
library(scales)

x <- tribble(
  ~response, ~count,
  "a",         -0.2,
  "b",         -0.1,
  "c",          0.5,
  "d",          0.2
)

p <- ggplot() +
  geom_bar(data = x,
           aes(x = "", y = count, fill = response),
           position = "stack",
           stat = "identity") +
  coord_flip()

# Percent scale
p + scale_y_continuous(labels = percent, limits = c(-1, 1), expand = c(0.05, 0))

# Absolute scale
p + scale_y_continuous(labels = abs, limits = c(-1, 1), expand = c(0.05, 0))

创建于 2019-11-14 由 reprex package (v0.3.0)

Answer 1

答案在评论中:使用 labels = function(x) percent(abs(x))在 scale_y_continuous() .