Создание диаграммы funnelarea из фрейма данных с использованием plotly rstudio

Question

Я хочу создать диаграмму funnelarea с использованием plotly, это пример из plotly:

fig <- plot_ly(
  type = "funnelarea",
  values = c(5, 4, 3, 2, 1),
  text = c("The 1st","The 2nd", "The 3rd", "The 4th", "The 5th"),
  marker = list(colors = c("deepskyblue", "lightsalmon", "tan", "teal", "silver"),
                line = list(color = c("wheat", "wheat", "blue", "wheat", "wheat"), width = c(0, 1, 5, 
0, 4))),
  textfont = list(family = "Old Standard TT, serif", size = 13, color = "black"),
  opacity = 0.65)
fig

Я хотел бы использовать фрейм данных для заполнения этой диаграммы, использовать категории из столбцов моего фрейма данных вместо текста и ценности, но я не могу найти путь к этому.

Пример моего фрейма данных

funnel_stage               size               purchaser_payment
1. Available for Sale      10                 10000 
1. Available for Sale      15                 15000
2. Pending on Sale         8                  8000
2. Pending on Sale         9                  9000
3. Already Sold            1                  1000
3. Already Sold            45                 45000
3. Already Sold            12                 12000 

Я бы хотел, чтобы моя воронка заполнилась подсчетом количества повторений первого столбца. Это будет выглядеть так: