使用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())