Отформатируйте значения меток на диаграмме водопада с помощью ggplot

Question

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

Например, для этого первого бара я бы хотел отформатировать 101000 как $101K.

library(ggplot2)
library(waterfalls)

# create dataset
category <- c("Sales", "Services", "Fixed Costs", 
              "Variable Costs", "Taxes")
amount <- c(101000, 52000, -23000, -15000, -10000)
income <- data.frame(category, amount) 

# create plot
waterfall(income)

Так выглядит график в настоящее время.:

Answer 1

Пакет scales предоставляет несколько удобных функций для форматирования меток осей.

library(ggplot2)
library(waterfalls)
library(scales)

# create dataset
category <- c("Sales", "Services", "Fixed Costs", 
              "Variable Costs", "Taxes")
amount <- c(101000, 52000, -23000, -15000, -10000)
income <- data.frame(category, amount) 

# create plot
waterfall(income, rect_text_labels = dollar(amount)) + 
  scale_y_continuous("", labels = dollar_format())