网格与轴不匹配

Question

我使用以下两行来从两个4X10 Matrix d1的行中生成下面的图，并在一个图中生成d2：

plot(as.matrix(d1[2,]), as.matrix(d2[2,]), type="o", col="red", 
ann=FALSE, pch=17, log = 'y',lty=4, axes=FALSE, las=2) +
lines(as.matrix(d1[1,]),as.matrix(d2[1,]), type="o", col="blue",
ann=FALSE, pch=15, lty=4)

x_axis_labels <- c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10) 
axis(1,labels = x_axis_labels, at = x_axis_labels)
y_axis_labels <- c(3e+4, 6e+4,2e+5,3e+5, 6e+5, 2e+6,5e+6) 
axis(2,labels = y_axis_labels, at = y_axis_labels, las=2)

grid()

产生以下内容：

但我喜欢的是让网格从每个轴上的所有标签开始。目前它只是从x轴上的一些标签开始，并没有与任何y轴标签对齐。

Answer 1

使用abline：

可能更容易控制

abline(v=x_axis_labels, h=y_axis_labels, lty=2, col='lightgray')

如果你想要点后面的网格线等，那么试试panel.first的{​​{1}}参数：

plot