[R] How to get aspect ratio as output from from plot()

[Sundar Dorai-Raj]

Waichler, Scott R wrote:
> Is there a way to get the aspect ratio as output from a plot() call or
> something similar in the base graphics system?  I would like to note
> vertical exaggeration on an elevation profile.
> 
> Thanks,
> Scott Waichler
> Pacific Northwest National Laboratory
> scott.waichler at pnl.gov
> 

Hi, Scott,

Perhaps this will work for you?

plot(1:10)
w <- par("pin")[1]/diff(par("usr")[1:2])
h <- par("pin")[2]/diff(par("usr")[3:4])
asp <- w/h

HTH,

--sundar