將tck設置爲R中的值向量

Question

我想要在圖的x軸上設置刻度標記，以便每5個刻度位置更改長度（從0.015到0.02），但tck不會接受多個值， 有任何想法嗎？下面是我的代碼示例：

year<-seq(1960,2010,1) 

xlab.pos <- rep (NA, length (year)) 
xlab.pos [seq(1, length (xlab.pos), 5)] <- year [seq(1, length (year), 5)] 

xlab.tck <- rep(0.015, length (year)) 
xlab.tck [seq(1, length (xlab.tck), 5)] <- 0.02 

plot(0, 0, type = "n", xlab = "", ylab = "", xaxt = "n", 
xlim = c(min(year), max(year)),ylim = c(0, 5000)) 

axis(1, at = seq(min(year),max(year),1), labels = xlab.pos, tck = xlab.tck) 

但如預期出現錯誤：圖形參數「TCK」有錯誤的長度 我無法弄清楚如何否則設置。

Answer 1

使用包Hmisc將幫助你。

library(Hmisc) 
plot(0, 0, type = "n", xlab = "", ylab = "", xaxt = "n", 
    xlim = c(min(year), max(year)),ylim = c(0, 5000)) 
axis(1, at = seq(min(year),max(year),1), labels = xlab.pos, tck = -0.015) 
minor.tick(nx = 3, ny = 0, tick.ratio = -1/2) 

雖然你需要做一些額外的調整！