Thêm mũi tên bên dưới trục x trong ô R

Question

Tôi đang cố gắng thêm mũi tên đánh dấu toạ độ x cụ thể bên dưới trục x trong ô R. Trục x của tôi là tại y = 0 và khi tôi cố gắng sử dụng tọa độ y âm trong arrows, vì vậy các mũi tên sẽ vuông góc với trục x, tôi chỉ nhận được các cạnh của mũi tên được vẽ (mặc dù là một số khoảng trắng, e, g trong đó nhãn x-trục và dấu kiểm được vẽ).

Answer 1

Tùy chọn xpd có thể được sử dụng trong mũi tên để bạn có thể đặt tọa độ nằm ngoài vùng ô và đặt xpd thành TRUE. Ví dụ, giả sử xlim = c (0,10) và ylim = (0,10), và bạn thiết lập các trục x đến 0 thì

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

vẽ một mũi tên thẳng đứng hướng lên tại trục x tại vị trí 1.4 trên trục đó.

Answer 2

Bạn có thể làm điều này bằng cách thêm lớp phủ bổ sung, bằng cách gọi par(new=TRUE), với tỷ suất lề giảm. Ví dụ:

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 

Edit: Nếu bạn muốn giữ lại các tọa độ tương tự như trong cốt truyện gốc, bạn phải chọn các giới hạn x và trục y một cách cẩn thận. Đây là minh họa belo:

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)