The R Project SVN R

Rev

Rev 61168 | Rev 68948 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61168 Rev 62641
Line 56... Line 56...
56 
##--- axis() and the graphics-engine agnostic  axisTicks() :
 56 
##--- axis() and the graphics-engine agnostic  axisTicks() :
57 
 
 57 
 
58 
require("graphics")
 58 
require("graphics")
59 
plot(10*(0:10)); (pu <- par("usr"))
 59 
plot(10*(0:10)); (pu <- par("usr"))
60 
aX <- function(side, at, ...)
 60 
aX <- function(side, at, ...)
61 
    axis(side, at = at, labels = FALSE, lwd.ticks = 2, col.ticks = 2, tck = 0.05, ...)
 61 
    axis(side, at = at, labels = FALSE, lwd.ticks = 2, col.ticks = 2,
- 
 
 62 
         tck = 0.05, ...)
62 
aX(1, print(xa <- axisTicks(pu[1:2], log = FALSE)))  # x axis
 63 
aX(1, print(xa <- axisTicks(pu[1:2], log = FALSE)))  # x axis
63 
aX(2, print(ya <- axisTicks(pu[3:4], log = FALSE)))  # y axis
 64 
aX(2, print(ya <- axisTicks(pu[3:4], log = FALSE)))  # y axis
64 
 
 65 
 
65 
axisTicks(pu[3:4], log = FALSE, n = 10)
 66 
axisTicks(pu[3:4], log = FALSE, n = 10)
66 
 
 67