如何将小刻度标记添加到除主标记之外的轴？

Question

我有两个问题。

1. 我想知道如何可以添加两个字，代替“0”一个出现，其他出现代替“10”在X轴和Y轴而保留轴（即1到9）的剩余数字？
2. 如何在两个轴上添加小刻度标记？

这里是我R代码里面，没有成功：

plot(0:10,0:10,type="n",axes=FALSE,xlab="JBL",ylab="PRAC") 

axis(side=1,at=c("AL",1,2,3,4,5,6,7,8,9,"BL"),las=1) 
axis(side=2,at=c("CL",1,2,3,4,5,6,7,8,9,"DL"),las=1) 
box() 

Answer 1

对于第一个问题，你应该使用labels不at。阅读?axis。

对于第二个，您可以在同一轴上调用axis或Axis两次，但使用rug更容易。它是Axis的包装函数。例如，你可以这样做：

plot(0:10, 0:10, axes = FALSE) ## `axes` is an argument to `plot.default` 
axis(1, at = 0:10, labels = c("AL",1,2,3,4,5,6,7,8,9,"BL")) 
rug(x = 0:9 + 0.5, ticksize = -0.01, side = 1) 
axis(2, at = 0:10, labels = c("CL",1,2,3,4,5,6,7,8,9,"DL")) 
rug(x = 0:9 + 0.5, ticksize = -0.01, side = 2) 

你可以看到如何rug作品在它的源代码：

Axis(side = side, at = x, labels = FALSE, lwd = 0, lwd.ticks = lwd, 
    col.ticks = col, tck = ticksize, ...) 

读?par如何tck作品。轴的默认值tck为-0.02，所以如果您希望较小的值为“副轴”，请将其设置为一半。这里，标志表示方向。积极值给滴答指向剧情内，而负数给滴答指向剧情。