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

问题描述

我有一个对数刻度的图：

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”，即使它们与其他数字重叠。 （轴数不应减小！）

谢谢。

解决方法

有这样的吗？我们可以使用 mapply() 为 axis() 返回的每个刻度位置调用一次 axTicks()。这样做可以让您保留未显示的缺失值以避免过度绘图。另外，我用 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)