r - 如何让ggplot根据特定类别对齐条形图

Question

我正在尝试实现如下图所示的结果 - 使得图表中的列基于中间两个类别之间的连接对齐，而不是在其中一个轴(即“不同意”之间的线)并且“同意”在每个项目的相同 X 坐标中)。

我的玩具示例代码如下:

library(ggplot2)
test_dat <- data.frame(question = rep(c('test1', 'test2'), each = 4), 
                       value = rep(c('Strongly disagree', 'Disagree', 'Agree', 'Strongly agree'), 2), 
                       percentage = c(10, 20, 5, 40, 15, 24, 30, 10), 
                       stringsAsFactors = FALSE)

test_dat$value <- factor(test_dat$value, levels = c('Strongly disagree', 'Disagree', 'Agree', 'Strongly agree')[4:1])

ggplot(test_dat, aes(x = question, fill = value, y = percentage)) + 
  geom_col(position = 'stack', width = .7) + 
  coord_flip()

但到目前为止，我还不知道如何阻止它只在 x 轴上对齐。我考虑过四处乱逛和制作，例如一个带有透明填充的虚拟类别，但想知道是否有我遗漏的路线。

Answer 1

添加正面和负面类别之间的差距实际上非常棘手。为此，我必须使用 geom_rect 从头开始​​构建形状。我听从了 this answer 的一些建议.我遇到的问题之一是让类别以正确的顺序出现——我一直颠倒“不同意”和“强烈不同意”，直到我添加了一个“强度”度量来确保“强烈同意”和“强烈不同意” "都将被置于极端。

主要的变化是添加一个偏移量，将所有正值向上移动一定量，将所有负值向下移动相同的量。我建议您将数据操作步骤逐行分开，以掌握它们的窍门——我当然不得不只写它。

library(dplyr)
library(ggplot2)
test_dat <- data.frame(question = rep(c('test1', 'test2'), each = 4), 
                       value = rep(c('Strongly disagree', 'Disagree', 'Agree', 'Strongly agree'), 2), 
                       percentage = c(10, 20, 5, 40, 15, 24, 30, 10), 
                       stringsAsFactors = FALSE)

test_dat$value <- factor(test_dat$value, levels = c('Strongly disagree', 'Disagree', 'Agree', 'Strongly agree')[4:1])

gap <- 0.5
width <- 0.35
test_likert <- test_dat %>%
  mutate(question = forcats::as_factor(question),
         direction = ifelse(grepl("D|disagree", value), -1, 1),
         xmin = as.numeric(question) - width,
         xmax = as.numeric(question) + width,
         strength = as.numeric(grepl("Strongly", value))) %>%
  group_by(question, direction) %>%
  arrange(strength, desc(value)) %>%
  mutate(ymax = cumsum(percentage) + gap,
         ymin = lag(ymax, default = gap)) %>%
  mutate_at(vars(ymin, ymax), ~. * direction)

head(test_likert)
#> # A tibble: 6 x 9
#> # Groups:   question, direction [4]
#>   question value      percentage direction  xmin  xmax strength  ymax  ymin
#>   <fct>    <fct>           <dbl>     <dbl> <dbl> <dbl>    <dbl> <dbl> <dbl>
#> 1 test1    Disagree           20        -1  0.65  1.35        0 -20.5  -0.5
#> 2 test2    Disagree           24        -1  1.65  2.35        0 -24.5  -0.5
#> 3 test1    Agree               5         1  0.65  1.35        0   5.5   0.5
#> 4 test2    Agree              30         1  1.65  2.35        0  30.5   0.5
#> 5 test1    Strongly …         10        -1  0.65  1.35        1 -30.5 -20.5
#> 6 test2    Strongly …         15        -1  1.65  2.35        1 -39.5 -24.5

为了获得绘图，您现在有了 geom_rect 的 x 和 y 位置。为了获得文本标签，x 尺度有点笨拙(据我所知，geom_rect 需要该尺度是连续的)。

最初我单独留下了 y 尺度，但有差距会误导读者(@MatiasAndina 提到了可读性问题)。你会放置以例如结尾的酒吧30.5，它们的值实际上应该是 30。处理这个问题的一种方法是手动设置刻度线，并用去掉的偏移量来标记它们。然后将两个值标记为 0，这很奇怪，但您确实需要一个明确的基线位置。

ggplot(test_likert, aes(fill = value)) +
  geom_rect(aes(ymin = ymin, ymax = ymax, xmin = xmin, xmax = xmax)) +
  coord_flip() +
  scale_x_continuous(labels = levels(test_likert$question), 
                     breaks = unique(as.numeric(test_likert$question))) +
  scale_y_continuous(labels = c(seq(45, 0, by = -15), seq(0, 45, by = 15)), 
                     breaks = c(seq(-45, 0, by = 15) - gap, seq(0, 45, by = 15) + gap),
                     limits = c(-48, 48))

我将让您处理 y 尺度(并且对于堆叠条形图更清晰)的更好方法是放弃 y 尺度中断并在每个条上放置直接标签显示它们的实际值。