File: getFigCtr.R

package info (click to toggle)
r-cran-plotrix 2.9-3-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 960 kB
  • sloc: makefile: 3
file content (10 lines) | stat: -rw-r--r-- 404 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
getFigCtr<-function() {
 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/2
 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/2
 return(c(figxctr,figyctr))
}