Функция оси R

Аргумент axesplot функции может быть установлен на FALSE, чтобы избежать отображения осей, поэтому, если вы хотите, вы можете добавить только одну из них с помощью axis функции и настроить ее. Передача 1 в качестве аргумента приведет к построению оси X, передача 2– к построению оси Y, 3 для верхней оси и 4 для правой оси.

plot(x, y, axes = FALSE)
# Add X-axis
axis(1)
# Add Y-axis
axis(2)

Изменение отметок оси

Также можно изменить отметки осей. С одной стороны, at аргумент axis функции позволяет указать точки, в которых будут нарисованы метки.

plot(x, y, axes = FALSE)
axis(1, at = -0:5)

С другой стороны, minor.tick функция Hmisc пакета позволяет создавать меньшие отметки между основными отметками.

# install.packages("Hmisc")
library(Hmisc)
x = seq(0, 5, 0.1)
y = 4 - x^2
plot(x, y, 'l', lwd = 2)
minor.tick(nx = 5, ny = 5, tick.ratio = 0.7)
grid(col='black')
xc = seq(0, 5, 0.2)
yc = seq(-22, 5, 1)
abline(v = xc, col ='grey50')
abline(h = yc, col ='grey50')

Наконец, вы можете создать внутренние галочки, указав положительное число в tck аргументе следующим образом:

# Interior ticks
plot(x, y, tck = 0.02)

 

Удаление меток оси

Установка аргументов xaxt или yaxt в "n"plot функции позволит избежать построения меток осей X и Y соответственно.

par(mfrow = c(1, 3))

# Remove X axis tick labels
plot(x, y, xaxt = "n", main = "xaxt = 'n'")

# Remove Y axis tick labels
plot(x, y, yaxt = "n", main = "yaxt = 'n'")

# Remove both axis tick labels
plot(x, y, yaxt = "n", xaxt = "n", main = "xaxt = 'n', yaxt = 'n'")

par(mfrow = c(1, 1))

Изменение меток оси

Метки меток осей будут пронумерованы в соответствии с нумерацией ваших данных. Тем не менее, вы можете изменить метки меток, если это необходимо, с labels помощью аргумента axis функции. Вам также нужно будет указать, где будут отображаться метки тиков с at аргументом.

# Change X axis tick labels
plot(x, y, xaxt = "n")
axis(1, at = seq(round(min(x)), round(max(x)), by = 1), labels = 1:6)

# Change Y axis tick labels
plot(x, y, yaxt = "n")
axis(2, at = seq(round(min(y)), round(max(y)), by = 1), labels = 1:26)