R axisTicks 计算漂亮的轴刻度

说明

计算漂亮的轴刻度和刻度线位置，与传统的方式相同R图形可以做到这一点。这对于对数刻度轴尤其有趣。

用法

axisTicks(usr, log, axp = NULL, nint = 5)
.axisPars(usr, log = FALSE,  nintLog = 5)

参数

usr	长度为 2 的数值向量，具有 c(min, max) 轴范围。
log	逻辑指示是否(认为)正在使用对数刻度。
axp	长度为 3 的数值向量 c(mi, ma, n.) ，与 par("?axp") 具有相同的含义(其中 ? 是 x 或 y )，即 “pretty” 轴范围和整数代码 n. 。
nint, nintLog	正整数值，表示(大约)所需的间隔数。 nintLog 仅用于 log = TRUE 情况。

细节

axisTicks(usr, *) 调用 .axisPars(usr, ..) 来设置 axp(如果缺少)或 NULL 。

除此之外，axisTicks()只是调用C函数CreateAtVector()在 '<Rsrc>/src/main/plot.c’这也被基地称为graphics封装函数axis(side, *)当它的论点at没有指定。

自从R4.1.0、底层CCreateAtVector()已进行调整以提供一组更加平衡(对称)的刻度位置。

值

axisTicks() 返回潜在轴刻度位置的数值向量，长度约为 nint+1 。

.axisPars() 返回带有组件的 list

axp	长度为 2 的数值向量 c(min., max.) ，具有漂亮的轴范围。
n	整数(代码)，与 par("?axp")[3] 含义相同。

例子

##--- Demonstrating correspondence between graphics'
##--- axis() and the graphics-engine agnostic  axisTicks() :

require("graphics")
plot(10*(0:10)); (pu <- par("usr"))
aX <- function(side, at, ...)
    axis(side, at = at, labels = FALSE, lwd.ticks = 2, col.ticks = 2,
         tck = 0.05, ...)
aX(1, print(xa <- axisTicks(pu[1:2], log = FALSE)))  # x axis
aX(2, print(ya <- axisTicks(pu[3:4], log = FALSE)))  # y axis

axisTicks(pu[3:4], log = FALSE, nint = 10)

plot(10*(0:10), log = "y"); (pu <- par("usr"))
aX(2, print(ya <- axisTicks(pu[3:4], log = TRUE)))  # y axis

plot(2^(0:9), log = "y"); (pu <- par("usr"))
aX(2, print(ya <- axisTicks(pu[3:4], log = TRUE)))  # y axis

也可以看看

axTicks 、 axis 和 par 均来自 graphics 包。