File: getFigCtr.R

package info (click to toggle)
r-cran-plotrix 3.8-1-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 1,580 kB
  • sloc: makefile: 6
file content (12 lines) | stat: -rwxr-xr-x 435 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
 
getFigCtr<-function(pos=c(0.5,0.5)) {
 pars<-par(c("usr","mar","fin","pin"))
 pxspan<-diff(pars$usr[1:2])
 fxspan<-pxspan*pars$fin[1]/pars$pin[1]
 figxctr<-
  pars$usr[1]-(fxspan-pxspan)*pars$mar[2]/(pars$mar[2]+pars$mar[4]) + fxspan*pos[1]
 pyspan<-diff(pars$usr[3:4])
 fyspan<-pyspan*pars$fin[2]/pars$pin[2]
 figyctr<-
  pars$usr[1]-(fyspan-pyspan)*pars$mar[1]/(pars$mar[1]+pars$mar[3]) + fyspan*pos[2]
 return(c(figxctr,figyctr))
}