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 包。