在标记条形图时如何将 geom_text 更改为货币？

Question

我有一个条形图，每个条形的顶部都有标签来显示金额。

如何将其更改为货币格式？

这是一个例子：

df <- tribble(~county, ~amount,
              "A", 200000, 
              "B", 1000000, 
              "C", 500000, 
              "D", 250000)

df %>%
  ggplot(aes(x = county, y = amount)) +
  geom_col() +
  scale_y_continuous(labels = label_dollar()) +
  geom_text(aes(label = amount), vjust = -.5)

Answer 1

使用

label_dollar()(..)

：

df <- tribble(~county, ~amount,
              "A", 200000, 
              "B", 1000000, 
              "C", 500000, 
              "D", 250000)

df %>%
  ggplot(aes(x = county, y = amount)) +
  geom_col() +
  scale_y_continuous(labels = label_dollar()) +
  geom_text(aes(label = label_dollar()(amount)), vjust = -.5)

Answer 2

对于两年后从 Google 来到这里的任何人来说，label_dollar() 似乎不再起作用，但您可以使用scales::dollar() 代替。例如：

geom_text(aes(label = scales::dollar(amount)), vjust = -.5)

将答案归功于艾伦·卡梅伦 (Allan Cameron) 的这篇文章