в R используйте `$` и `K` в качестве меток оси Y за тысячи долларов

Question

Этот старый вопрос о стекопереработке объясняет, как изменить ось Y на K для тысяч вместо ,000.Также объясняется, как поставить знак доллара на метках оси Y с scales::dollar.Моя проблема заключается в объединении двух идей в R:

library(tidyverse)
library(scales)
set.seed(200)
df <- tibble(Date = seq(as.Date("2018/1/1"), by = "month", length.out = 12),
             Values = c(runif(12, 200000, 800000)))

ggplot(df, aes(Date, Values)) + 
  geom_line() + 
  scale_y_continuous(label = unit_format(unit = "K", scale = 1e-3, sep = "")) + 
  # scale_y_continuous(labels = dollar) +  # line 10
  NULL

. Я могу использовать либо строку 9 , либо строку 10 выше, но не обе одновременно.Как объединить обе строки 9 и 10 в одну строку?В качестве примера я хочу перевести 115,000 в $115K.

Answer 1

Вы можете использовать scales::dollar_format для достижения цели:

ggplot(df, aes(Date, Values)) + 
  geom_line() + 
  scale_y_continuous(labels = scales::dollar_format(scale = .001, suffix = "K"))