确定 R 图的确切右下角

determining exact bottom right corner of R plot

在下面的R图中运行见),我想要我的绿色垂直 abline() 准确地附加到我情节的 右下角 ;那就是:我的右下角 redblue 曲线 end 的确切位置阴谋。

保持我情节中的一切,这一点的确切 x 是多少? par("usr")[2] 无能为力,如 我下面的代码所示:

curve(df(x,1,28,ncp = 1.875),0,11,col="blue",lwd=3,ylim=c(0,1),xpd=T,bty="n",axes=F)
curve(df(x,1,28), add=T,col="red",lwd=2)
axis(1,pos=0)
axis(2,pos=0)

abline(v=par("usr")[2],col="green")   ## I'm using par("usr")[2] here with no success ##

默认绘图在每一侧额外增加 4% space。所以你可以计算

size = (par("usr")[2]-par("usr")[1])/1.08
size
11

获取主图的大小和

par("usr")[2]- 0.04*size   
11

获得右手边

顺便说一句,你可以让 R not 通过将 xaxs="i" 添加到你的第一个曲线语句

来添加 space