ggplot：geom_bar产生错误的比例

Question

我正在尝试创建一个条形图，将调查问题（来自我的数据框“最终”）绘制在x轴上，并且可以在条形图中查看三个响应中的每一个的数字。

代码如下：

initFX()

但是，当我打印p3时，比例尺是错误的，看起来像这样：

有人可以帮我找出原因吗？

这是我正在使用的数据集：

.tile, .tile::after, .tile::before {
-webkit-user-select: none;
-webkit-user-drag: none;
-webkit-app-region: no-drag;
cursor: default;
}

Answer 1

您可以尝试一下，我在data2之后稍微更改了代码。

final %>% 
        select(4:6, 14, 15) %>%
        na.omit -> data_items


data_items %>% 
        gather(key = items, value = answer) %>% 
        mutate(answer = factor(answer),
               items = factor(items)) -> data2


data2 %>% 
        dplyr::count(items, answer) %>% group_by(items)%>%
        mutate(share = n/sum(n)) -> data3


ggplot(data3, aes(x = items, y = share,fill = answer)) +
        geom_bar(  stat = "identity") +
        geom_text(aes(y=share,label = n),  size = 3,position = position_stack(vjust = 0.45))