r - ggplotのユーロ記号：スケールパッケージ

Question

scalesパッケージを使用するscales = dollarと、たとえば、内部のオプションを使用して、軸にドルを表示できることに気付きましたscale_y_log10()。のようなオプションscales = euroが不足しているようです。同じ効果を達成する簡単な方法はありますか？

Answer 1

prefixとのsuffix引数を使用できますdollar_format

たとえば、次のようになります。

library(ggplot2)
library(scales)       
ggplot(diamonds) + geom_point(aes(x = carat, y =  price)) + 
   scale_y_continuous(labels = dollar_format(suffix = "€", prefix = ""))

Answer 2

Dollar_formatを変更し、記号をユーロに変更するのは簡単です。これを実行して、呼び出すようにコードに入れますdollar_format

euro_format <- function(largest_with_cents = 100000) {
  function(x) {
    x <- round_any(x, 0.01)
    if (max(x, na.rm = TRUE) < largest_with_cents &
        !all(x == floor(x), na.rm = TRUE)) {
      nsmall <- 2L
    } else {
      x <- round_any(x, 1)
      nsmall <- 0L
    }
    str_c("€", format(x, nsmall = nsmall, trim = TRUE, big.mark = ",", scientific = FALSE, digits=1L))
  }
}