Я хотел бы знать, можно ли разместить метки галочек на двух разных уровнях, чтобы избежать перекрытия между метками. Например здесь:
a=c[1:10]
b=c("January","February","March","April","May","June","July","August","September","October")
barplot(a,space=0,axes=F)
ticks=a
axis(side=1, at =ticks, labels=b)
вы можете попробовать следующее:
a=1:10
b=c("January","February","March","April","May","June","July","August","September","October")
barplot(a,space=0,axes=F)
ticks=a
# indices of even ticks
idx <- seq(2, length(ticks), 2)
# b2 only contains the odd labels.
b2 <- b
# Empty space so a small line gets drawn at omitted labels
b2[idx] <- ""
# draw odd labels
axis(side=1, at =ticks, labels=b2, line = 0)
# same command for even ticks, lwd = 0 suppresses drawing the x-axis twice
axis(side=1, at =ticks[idx], labels=b[idx], line = 1, lwd = 0)
Это в основном позволяет избежать перекрытия, сначала рисуя метки в нечетных позициях, а затем рисуя метки в четных позициях, но немного ниже из-за line = 1.
Вы можете попробовать сделать два вызова axis, один для нечетных месяцев и один для четных, и поместить их в разные line. Первый вызов axis — это просто отрисовка галочек без меток.
a=1:10
a_even <- a[a %% 2==0]
a_odd <- a[a %% 2==1]
b=c("January","February","March","April","May","June","July","August","September","October")
barplot(a,space=0,axes=F)
ticks=a
axis(side=1, at =ticks, labels=FALSE,line = 1)
axis(side=1, at =ticks[a_odd], labels=b[a_odd],line = 1,tick = FALSE)
axis(side=1, at =ticks[a_even], labels=b[a_even],line = 2,tick = FALSE)
