r - base::plot -- 我可以检索绘制的纵横比吗？

Question

我知道我可以在绘图时指定纵横比，例如plot(x,y,asp=5) .允许自动缩放(如 plot(x,y) )后，有没有办法检索纵横比？我问的原因是我在玩text(x,y,'mystring',srt=local_slope) ，我在这里计算 local_slope基于基础曲线和x兴趣的值(value)。麻烦的是，对于 asp!=1这会以与我绘制的数据集的显示斜率不同的角度旋转文本。样本:

x<- -10:10
y<- x^2
plot(x,y,t='l',asp=0.1) 
# the slope at x=1 is 2 but the default plot aspect ratio is far from 1:1
text(1,1,'foo',srt= 180/pi*atan(2) )  #ugly-looking
text(-1,1,'bar',srt= (180/pi*atan(2/10))) #better

Answer 1

x<- -10:10
y<- x^2
plot(x,y,t='l',asp=0.1) 
### the slope at x=1 is 2 but the default plot aspect ratio is far from 1:1
text(1,1,'foo',srt= 180/pi*atan(2) )  #ugly-looking
text(-1,1,'bar',srt= (180/pi*atan(2/10))) #better

以英寸为单位获取绘图区域的宽度和高度...

ff <- par("pin")
ff[2]/ff[1]  ## 1.00299

现在手动调整绘图大小...

ff <- par("pin")
ff[2]/ff[1]  ## 0.38

您也可以使用 par("usr")整理纵横比
以用户为单位，但我还没有想出完全正确的
一组比率... MASS::eqscplot 的胆量可能也很有启发性。