r - 使用 ggplot，使用 scales 中的 unit_format 和 Dollar_format 进行刻度文本标记

Question

我创建了以下 ggplot 来突出我的问题:

mydf = data.frame(x = c(1,2,3,4,5), y = c(1,2,3,4,5))
ggplot(data = mydf) + 
  geom_point(aes(x = x, y = y)) + 
  scale_x_continuous(labels = scales::dollar_format()) + 
  scale_y_continuous(labels = scales::unit_format(unit = "M"))

这给出了以下惊人的高级 ggplot 图:



我的问题很简单 - 我怎样才能让一个轴具有 $和M单位标签，以便标签显示为 100 万美元 200 万美元等。这可能吗？是不是也可以把数字和M号的差距缩小，让它显示 5M而不是 5 M
一如既往的感谢!

Answer 1

Hacky，但有效:

ggplot(data = mydf) + 
  geom_point(aes(x = x, y = y)) + 
  scale_x_continuous(labels = scales::dollar_format()) + 
  scale_y_continuous(labels = scales::dollar_format(prefix="$", suffix = "M"))