向下移动并在 r 中保留绘图的所有放大轴编号标签

Question

我有一个对数刻度的图：

png("test.png")
set.seed(20)
x = 1:100
y = sample(100)
plot(x,y,log="x",xaxt='n',cex.axis=2)
axis(1,cex.axis=4)
dev.off()

test.png 产生：

我想要两件事，

1. 将轴编号向下移动，这样它们就不会与轴重叠并且是刻度
2. 保留消失的数字“2”、“10”、“50”，即使它们与其他数字重叠。 （轴数不应缩小！）

谢谢。

Answer 1

这样的？我们可以使用mapply()，它为axTicks() 返回的每个刻度位置调用一次axis()。这样做可以让您保留未显示的缺失值以避免过度绘图。另外，我在padj 中添加了一些填充，因此您的值不会进入情节本身。

png("test.png")
set.seed(20)
x = 1:100
y = sample(100)


plot(x,y,log="x",xaxt='n',cex.axis=2)
mapply(axis, 
       side = 1, 
       at = axTicks(1), 
       labels = axTicks(1), 
       cex.lab=4, 
       cex.axis=4, 
       cex.main=4, 
       cex.sub=4, 
       padj = 0.5)