Добавление стрелки под осью X на графиках R

Question

Я пытаюсь добавить стрелки, обозначающие конкретные координаты х ниже оси х на графике R. Моя ось x находится в точке y = 0, и когда я пытаюсь использовать отрицательные координаты y в arrows, так что стрелки будут перпендикулярны оси x, я получаю только самые края стрелки, показанные на графике (хотя есть некоторое пространство, e , g, где нанесены метка оси x и метки).

Answer 1

Параметр xpd можно использовать в виде стрелок, поэтому вы можете просто установить свои координаты, чтобы они находились за пределами области графика, и установите для xpd значение TRUE.Например, предполагая xlim = c (0,10) и ylim = (0,10), и вы устанавливаете ось x на 0, тогда

arrows(1.4, -1, 1.4, 0, xpd = TRUE)

рисует вертикальную стрелку, направленную вверх на x-ось в положении 1.4 на этой оси.

Answer 2

Вы можете сделать это, добавив дополнительный оверлей, вызвав par(new=TRUE), с уменьшенными полями. Например:

plot(1,1) ## start a plot
opar <- par(new = TRUE, ## add a new layer
            mar = c(0,0,0,0)) ## with no margins margins
## set up the plotting area for this layer
plot(1,1,xlim=c(0,1),ylim=c(0,1),type='n',xlab='',ylab='') 
arrows(0.1,0.05,0.5,0.05) ## add arrow
par(opar) ## return the plot parameters to their prior values

Редактировать: Если вы хотите сохранить те же координаты, что и на исходном графике, вы должны тщательно выбрать пределы осей X и Y Это показано ниже:

plot(1,1,xlim=0:1,ylim=0:1)
arrows(0.1,0.05,0.5,0.05)
gpar <- par()
opar <- par(new = TRUE, mar = c(0,0,0,0),xaxs='i',yaxs='i')

m1 <- (gpar$usr[2] - gpar$usr[1])/(gpar$plt[2] - gpar$plt[1])
c1 <- gpar$usr[1] - m1*gpar$plt[1]
m2 <- (gpar$usr[4] - gpar$usr[3])/(gpar$plt[4] - gpar$plt[3])
c2 <- gpar$usr[3] - m2*gpar$plt[3]
xlim <- c(c1, m1 + c1)
ylim <- c(c2, m2 + c2)

plot(1,1,xlim=xlim,ylim=ylim,type='n',xlab='',ylab='')
arrows(0.1,0.05,0.5,0.05,col='red')
points(1,1,col='red')
par(opar)