如何在 R ggplot2 中制作帶有條形的漏斗圖？

Question

I want to make a funnel chart in R with ggplot2 as following: https://chartio.com/assets/c15a30/tutorials/charts/funnel-charts/c7cd4465bc714689646515692b6dbe7c74ae7550a265cd2d6a530f1f34d68ae1/funnel-chart-example.png

我的代碼看起來像這樣，但我不知道如何在條形之間填充淺藍色。 （也許有多邊形？）

library(ggplot2)
library(reshape2) # for melt()
library(dplyr)
# get data
dat <- read.table(text=
"steps  numbers     rate
clicks 332835  100.000000
signup  157697  47.379933
cart   29866   8.973215
buys   17012   5.111241", 
                  header = T)

barWidth <- 0.9

# add spacing, melt, sort
total <- subset(dat, rate==100)$numbers
dat$padding <- (total - dat$numbers) / 2
molten <- melt(dat[, -3], id.var='steps')
molten <- molten[order(molten$variable, decreasing = T), ]
molten$steps <- factor(molten$steps, levels = rev(dat$steps))

ggplot(molten, aes(x=steps)) +
  geom_bar(aes(y = value, fill = variable),
           stat='identity', position='stack') +
  geom_text(data=dat, 
            aes(y=total/2, label= paste(round(rate), '%')),
            color='white') +
  scale_fill_manual(values = c('grey40', NA) ) +
  coord_flip() +
  theme(legend.position = 'none') +
  labs(x='steps', y='volume')

Answer 1

我需要相同的但沒有找到，所以我創建了一個 function 來這樣做。 它可能需要一些改進，但運行良好。 下面的示例僅顯示數字，但您也可以添加文本。

x <- c(86307,
       34494,
       28127,
       17796,
       12488,
       11233
)

source("https://gist.github.com/jjesusfilho/fd14b58becab4924befef5be239c6011")

gg_funnel(x, color = viridisLite::plasma(6))

Answer 2

這應該只是一個評論，因為您明確要求提供ggplot解決方案，但事實並非如此 - 我純粹出於代碼格式化的原因將其發布為答案。

您可以考慮plotly ，它具有漏斗類型。 就像是

library(plotly)
dat %>%  mutate(steps=factor(steps, unique(steps)),
    rate=sprintf("%.2f%%", rate)) %>% 
plot_ly(
    type = "funnel",
    y = ~steps,
    text= ~rate,
    x = ~numbers)

可以讓你開始； 我並沒有真正掌握數據中的填充，所以這可能不是你想要的。