使漏斗图中的条形居中

Question

我正在尝试在 R 中制作漏斗图。例如，我从该页面获取代码 https://analyzecore.com/2015/06/23/sales-funnel-visualization-with-r/ 但奇怪的是，我无法得到，为什么我的条形图向左侧倾斜？

Funnel data: 

       Category Number
1 total_members   1000
2  paid_members    936
3 cancellations    452
4       refunds     34

library(ggplot2)
ggplot() +
  theme_minimal() +
  coord_flip() +
  scale_fill_manual(values=cols)+
  geom_bar(data=funnel_data, aes(x=Category, y=Number, fill=Category), stat="identity", width=1)

结果

如果您只是运行文章中的一段代码，例如：

ggplot() +
  theme_minimal() +
  coord_flip() +
  scale_fill_manual(values=cols) +
  geom_bar(data=df.all, aes(x=step, y=number, fill=content), stat="identity", width=1)

它会给你一个以 X 为中心的条形的很好的例子：

我不知道这个案例中的问题是什么。非常乐意提供任何帮助。

Answer 1

这是不同的方法，但有效 - 创建第二个 geom_bar 具有负值的 geom：

library(ggplot2)
# Using OPs data
ggplot(funnel_data, aes(Category, fill = Category)) +
    geom_bar(aes(y =  Number), stat = "identity", width = 1) + 
    geom_bar(aes(y = -Number), stat = "identity", width = 1) +
    theme_minimal() +
    coord_flip()

使漏斗图中的条形居中

Center the bars in Funnel chart

r

ggplot2

geom-bar