Вы можете использовать встроенный вектор для сокращенных месяцев, month.abb
, а затем индексировать их с помощью последовательности меток тика оси X, используя модуль 12, %% 12
. Сначала отключите ось X (xaxt="n"
).
plot(NULL,xlim=c(0,30), ylim=c(0,350), xlab="months", ylab="values in mm", main="procedure", xaxt="n")
, а затем создайте нужные метки.
(xlabs <- paste(month.abb[1+seq(0,30,5) %% 12])
# [1] "Jan" "Jun" "Nov" "Apr" "Sep" "Feb" "Jul"
Эти метки содержат только месяцы. Если вы хотите добавить годы, то это также возможно, возможно, снизу, если пространство является проблемой. Например, используя paste0
.
xlabs <- paste0(xlabs, "\n", c(rep(2018,3), rep(2019,2), rep(2020,2)))
axis(side=1, at=seq(0,30,5), labels=xlabs, cex.axis=0.8)
![enter image description here](https://i.stack.imgur.com/I6wlN.png)
Возможно, вам нужны лучшие интервалы, скажем, 3 или 6 месяцев.