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

我有一个情节,我需要从百分比数字中删除小数.数据已经四舍五入(两位小数),这是数据的一个例子:

> 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)

我找到的最接近的答案是这个,但我不需要粘贴"%"符号,因为我已经拥有它.

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))