R：两项 100% 堆叠条形图，百分比显示不正确答案

【问题标题】：R: two item 100% stacked bar chart, percentages not showing correctlyR：两项 100% 堆叠条形图，百分比显示不正确
【发布时间】：2023-01-12 01:52:01
【问题描述】：

我的意图是将项目绘制到与单独条形图相同的堆叠条形图中。数据框看起来像这样，那里的百分比是正确的。

但是条形中的比例并不按照百分比。你能找到我的代码中的缺陷吗？

plot_data %>%
  drop_na() %>% 
  ggplot(mapping = aes(x = variable)) +
  geom_bar(aes(fill = value),
           position = 'fill',
           width = 0.30)+
  scale_y_continuous(name = '% of responders',
                     breaks = seq(from = 0, to = 1, by = 0.2),
                     minor_breaks = seq(from = 0, to = 1, by = 0.1),
                     labels = seq(from = 0, to = 100, by = 20),
                     expand = c(0,0)) +
  xlab( element_blank()) +
  scale_fill_manual(
    values = c('red', 'blue', 'green'),
    labels = c(
      'Yes',
      'No',
      'Maybe'
    ),
    drop = FALSE
  ) +
  
  guides(
    fill = guide_legend(title = 'Answer')
  ) + theme(text = element_text(size = 12), 
            panel.background = element_blank(),
            plot.margin = margin(t = 150, r =  30, b = 20, l = 0),
            axis.ticks.y = element_blank(),
            panel.grid.major = element_line(colour = 'grey'),
            axis.ticks.x = element_line(colour = 'grey'),
            panel.grid.minor = element_line(colour = 'lightgrey'),
            axis.text.y = element_text(
              size = 12,
              face = 'plain',
              hjust = 0
            )) +
  coord_flip() +
  ggtitle(str_wrap("Title", width = 50)) +
  scale_x_discrete(labels = function(x)
    str_wrap(x, width = 20))

我的数据：

plot_data <- structure(list(variable = c("Question 1", "Question 1", "Question 1", 
"Question 2", "Question 2", "Question 2"), value = structure(c(1L, 
2L, 3L, 1L, 2L, 3L), .Label = c("Yes", "No", "Maybe"), class = c("ordered", 
"factor")), n = c(102L, 27L, 18L, 78L, 62L, 7L), pct = c(0.693877551020408, 
0.183673469387755, 0.122448979591837, 0.530612244897959, 0.421768707482993, 
0.0476190476190476)), class = c("grouped_df", "tbl_df", "tbl", 
"data.frame"), row.names = c(NA, -6L), groups = structure(list(
    variable = c("Question 1", "Question 2"), .rows = structure(list(
        1:3, 4:6), ptype = integer(0), class = c("vctrs_list_of", 
    "vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -2L), .drop = TRUE))

【问题讨论】：

geom_bar 使用计数（如果是离散的）或值的总和（如果是连续的）作为 y。解决方案是使用geom_bar(stat = "identity")，存在别名或简写geom_col。然后您需要传递一个 y 值。这就是 quinten 的答案的工作原理。

标签： r ggplot2 tidyverse

【解决方案1】：

您可以将 pct 值添加为 y aes 和 geom_col 并获得百分比 y 轴，您可以使用 scales 中的 percent 函数，如下所示：

library(ggplot2)
library(dplyr)
library(tidyr)
library(stringr)
plot_data %>%
  drop_na() %>% 
  ggplot(mapping = aes(x = variable)) +
  geom_col(aes(fill = value, y = pct),
           position = 'fill',
           width = 0.30)+
  scale_y_continuous(labels = scales::percent) +
  xlab( element_blank()) +
  scale_fill_manual(
    values = c('red', 'blue', 'green'),
    labels = c(
      'Yes',
      'No',
      'Maybe'
    ),
    drop = FALSE
  ) +
  
  guides(
    fill = guide_legend(title = 'Answer')
  ) + theme(text = element_text(size = 12), 
            panel.background = element_blank(),
            axis.ticks.y = element_blank(),
            panel.grid.major = element_line(colour = 'grey'),
            axis.ticks.x = element_line(colour = 'grey'),
            panel.grid.minor = element_line(colour = 'lightgrey'),
            axis.text.y = element_text(
              size = 12,
              face = 'plain',
              hjust = 0
            )) +
  coord_flip() +
  ggtitle(str_wrap("Title", width = 50)) +
  scale_x_discrete(labels = function(x)
    str_wrap(x, width = 20))

^{创建于 2023-01-11 reprex v2.0.2}

【讨论】：