删除百分比轴中的小数-R

Question

我有一个图，需要从百分比数字中删除小数。数据已经四舍五入（两位小数），例如：

> head(df$X)
[1] 0.05 0.28 0.08 0.19 0.33 

然后我用scale_x_continuous()将其绘制成百分比格式，但是正如您在下图中看到的那样，它们仍然有一个小数，我需要那些没有小数的数字。

这是图形的代码：

ggplot(df, aes(x=df$X, y=DF$Y)) + 
    geom_point(
        colour="red",
        size=5
        ) + 
  geom_text(label=df$Label, vjust=-2, family="sans", fontface="bold") +
  labs(x="X", y="Y") + xlim(-1,1) + ylim(-1,1) + scale_x_continuous(labels=scales::percent) + scale_y_continuous(labels=scales::percent)

我找到的最接近的答案是this one，但是我不需要粘贴“％”符号，因为我已经有了它。

Answer 1

scales::percent有一个accuracy参数，您可以修改。这应该给您您想要的东西：

ggplot(df, aes(x, y)) + 
  geom_point(
    colour="red",
    size=5
  ) + 
  labs(x="X", y="Y") + 
  xlim(-1,1) + 
  ylim(-1,1) + 
  scale_x_continuous(labels = function(x) scales::percent(x, accuracy = 1)) + 
  scale_y_continuous(labels = function(x) scales::percent(x, accuracy = 1))