确定 R 图的确切右下角
determining exact bottom right corner of R plot
在下面的R图中(运行见),我想要我的绿色垂直 abline()
准确地附加到我情节的 右下角 ;那就是:我的右下角 red 和 blue 曲线 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
在下面的R图中(运行见),我想要我的绿色垂直 abline()
准确地附加到我情节的 右下角 ;那就是:我的右下角 red 和 blue 曲线 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"
添加到你的第一个曲线语句