在“漏斗圖”中將條形居中

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_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()