Удаление конечных нулей из графика, созданного sygnif

Question

У меня проблема следующая. Скажем, я запускаю код:

plot(1:10,yaxt='n')
axis(2,signif(seq(1,10,9/4),2))

signif (..., 2) означает, что я хочу, чтобы на оси Y были числа, имеющие длину два (это означает, что они созданы двумя числами )

введите описание изображения здесь

и теперь у меня вопрос, есть ли возможность удалить 0 в 10.0 вверху? Я имею в виду, что вместо 10.0 я хочу иметь 10 (которое также является числом, состоящим из двух чисел)

Заранее спасибо!

Answer 1

Вы можете попробовать это форматирование над ярлыками:

#Plot
plot(1:10,yaxt='n')
#Label
x <- trimws(format(signif(seq(1,10,9/4),2),nsmall = 1))
x <- ifelse(nchar(x)>3,signif(as.numeric(x),1),x)
#Axis
axis(2,signif(seq(1,10,9/4),2),labels = x)

введите описание изображения здесь