1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
axis.mult<-function(side=1,at=NULL,labels,mult=1,mult.label,mult.line,
mult.labelpos=NULL,...) {
if(is.null(at)) at<-axTicks(side)
if(missing(labels)) labels<-at/mult
axis(side,at,labels,...)
if(missing(mult.label)) mult.label<-paste("x",mult,collapse="")
# multiplier position defaults to centered on the outside
if(is.null(mult.labelpos)) mult.labelpos<-side
edges<-par("usr")
if(side %% 2) {
# either top or bottom
if(mult.labelpos %% 2) {
adj<-0.5
at<-(edges[1]+edges[2])/2
if(missing(mult.line)) mult.line<-ifelse(mult.labelpos == side,3,0)
}
else {
adj<-ifelse(mult.labelpos == 2,1,0)
at<-ifelse(mult.labelpos == 2,edges[1],edges[2])
if(missing(mult.line)) mult.line<-1
}
}
else {
# either left or right
if(mult.labelpos %% 2) {
adj<-ifelse(mult.labelpos == 1,1,0)
at<-ifelse(mult.labelpos == 1,edges[3],edges[4])
if(missing(mult.line)) mult.line<-1
}
else {
adj<-0.5
at<-(edges[3]+edges[4])/2
if(missing(mult.line)) mult.line=ifelse(mult.labelpos == side,3,0)
}
}
mtext(mult.label,side,mult.line,at=at,adj=adj,...)
}
|
