是否有一个选项可以设置“，”作为 ggplot 中轴标签的默认小数点？

Question

制作图表时，ggplot2 有许多合理的比例默认值，当尝试使用 scales 获得相同结果时，需要额外的工作。

示例：

library("ggplot2")
ggplot(mtcars, aes(drat, mpg)) + geom_point()

请注意，该图小数点后面有一位数字。

但是，我住在荷兰，我们习惯使用逗号作为小数点。这在 scale_x_continuous 中很容易完成：

ggplot(mtcars, aes(drat, mpg)) + 
  geom_point() + 
  scale_x_continuous(labels = scales::label_number(big.mark = ".", decimal.mark = ","))

这个解决方案让我感到困扰的是，这也增加了位数：每个标签末尾有一个额外的、相当不必要的 0。当然，这也可以在 scales::label_number() 中通过设置 accuracy = 0.1 来解决，但这需要迭代（绘制和重新绘制以设置更合理的值）位数）。

是否有一个选项可以修复 ggplot 使用的默认小数点？我正在寻找一个解决方案，

ggplot(mtcars, aes(drat, mpg)) + 
  geom_point()

返回与

ggplot(mtcars, aes(drat, mpg)) + 
  geom_point() + 
  scale_x_continuous(labels = scales::label_number(
    big.mark = ".", 
    decimal.mark = ",",
    accuracy = 0.1
  ))

Answer 1

并非特定于 ggplot2，但您可以使用 options(OutDec = ",") 全局设置输出小数点字符。

从帮助页面：

OutDec：包含单个字符的字符串。首选
在输出转换中用作小数点的字符，即
处于打印、绘图、格式和 as.character 状态，但不在时
deparsing 也不是 sprintf 也不是 formatC （有时在之前使用
打印。）

library(ggplot2)

options(OutDec= ",")

ggplot(mtcars, aes(drat, mpg)) + 
  geom_point()

Answer 2

关键似乎是 format （来自基础 R）和 scales::number 使用不同的规则。我们可以恢复使用 format ...

myf <- function(x, ...) format(x, big.mark = ".", decimal.mark = ",", ...)
ggplot(mtcars, aes(drat, mpg)) +
  geom_point() +
  scale_x_continuous(labels = myf)

如果您想让这些标签成为全局默认标签，我认为您可以这样做：

scale_x_continuous <- function(..., labels = myf) {
  do.call(ggplot2::scale_x_continuous, c(list(...), labels = labels))
}

Answer 3

更通用的解决方案是编写一个与 {scales} 兼容的标签函数 label_format() 在底层调用 base::format()，然后根据荷兰标点符号惯例制作一个专门的版本。

library(ggplot2)
library(scales)

ggplot(mtcars, aes(drat, mpg)) + 
  geom_point()

# Use base::format as a {scales}-compatible labels function
label_format <- function(...) {
  function(x) do.call(format, c(list(x = x), list(...)))
}

# Specialized version for Dutch punctuation
label_format_NL <- function(...) {
  label_format(big.mark = ".", decimal.mark = ",", ...)
}

ggplot(mtcars, aes(drat, mpg)) + 
  geom_point() + 
  scale_x_continuous(labels = label_format_NL())

如果您不喜欢为每个轴指定标签，您可以像这样覆盖 ggplot2::continuous_scale ，例如就我

continuous_scale <- function(...) {
  do.call(
    ggplot2::continuous_scale, 
    c(list(labels = label_format_NL()), list(...))
  )
}

ggplot(mtcars, aes(drat, mpg)) + 
  geom_point()

个人而言，我会使用显式的scale_AESTHETIC_continous(labels = label_format_NL() ) 因为这样可以使您的更改保持本地化。重写 options() 或 continuous_scale() 在道德上等同于全局变量，不推荐。