File: lengthKey.R

package info (click to toggle)
r-cran-plotrix 3.2-6-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 1,136 kB
  • sloc: makefile: 3
file content (12 lines) | stat: -rwxr-xr-x 344 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
 
lengthKey<-function(x,y,tickpos,scale) {
 par(xpd=TRUE)
 nticks<-length(tickpos)
 segments(x,y,x+tickpos[nticks]*scale,y)
 for(tick in 1:nticks) {
  segments(x+tickpos[tick]*scale,y,
   x+tickpos[tick]*scale,y+tickpos[nticks]*scale/20)
  text(x+tickpos[tick]*scale,y+tickpos[nticks]*scale/15,
  tickpos[tick],adj=c(0.5,0))
 }
 par(xpd=FALSE)
}