Удаление десятичных знаков по оси процентов - 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)

Ближайший ответ, который я нашел, это этот , но мне не нужно вставлять символ "%", поскольку он у меня уже есть.

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