删除 ggplot2 + 比例中的前导零

Question

对于期刊投稿，我被告知我的数字不能有前导零。例如，采取这个情节:

df <- data.frame(x = -10:10, y = (-10:10)/10)

ggplot(df, aes(x, y))+
  geom_point()

y轴有标签

-1.0  -0.5   0.0   0.5   1.0

我需要制作这些标签:

-1.0   -.5   0      .5    1.0

我想我将不得不使用 scales 包中的 format_format()，但是我在各种文档中没有看到关于 format 的任何内容， formatC 和 sprintf 将生成必要的标签。

Answer 1

您可以编写自己的函数:

no_zero <- function(x) {
  y <- sprintf('%.1f',x)
  y[x > 0 & x < 1] <- sprintf('.%s',x[x > 0 & x < 1]*10)
  y[x == 0] <- '0'
  y[x > -1 & x < 0] <- sprintf('-.%s',x[x > -1 & x < 0]*-10)
  y
}

然后绘制:

ggplot(df, aes(x, y))+
  geom_point() +
  scale_y_continuous(labels = no_zero)

这给出了期望的结果: