R 使用拟合的X轴将数据点打印到填充轮廓中

我想将数据点绘制成填充的等高线图（具有密度信息）。我不想简单地通过在plot.axes命令中写入点来添加点，因为这些点也用温度信息进行了颜色编码，我还希望能够添加网格

但是，当我尝试编写filled.contour绘图并添加带有par（new=TRUE）的新绘图时，xaxis的长度不同，这会弄乱绘图信息。 我的代码：

如何将第二个绘图xaxis拟合到填充的等高线绘图，并使数据匹配？（图中：位置3处的轴是由第二个绘图创建的轴，位置1处的轴是由filled.contour plot创建的轴）

编辑：我现在找到了这个页面（）并想在我的数据上应用filled.contourt3，但它还没有完全起作用。即使是我用简单的filled.contour函数构建的图，也不能用filled.contour3对我进行复制

---

提前感谢：）

您能否发布一些示例数据和代码，使这成为一个可重复的问题

filled.contour(norm_syn_dens_trans_soil, color.palette = dens_col,xlim=c(-2,7),yaxs="i",xaxs="i",ylim=c(-1.5,1.2), plot.axes = {axis(1, at=seq.axis_Synopticprime_CO2); axis(2,at=seq.axis_Synopticprime_w_soil)},
        key.title = title(main="Density"))
par(new=TRUE)
plot(Synoptic_prime_transition$CO2_syn_prime_soil, Synoptic_prime_transition$w_syn_prime_soil, col=pal(nrow(Synoptic_prime_transition))[norm_syn_Temp_trans_soil],xaxt="n",yaxt="n",xlab=expression(italic(CO[2]*"'")), ylab=expression(italic(w*"'")),xlim=c(-2,7),ylim=c(-1.5,1.2),pch=3,yaxs="i",xaxs="i")
axis(3, at=seq.axis_Synopticprime_CO2)
abline(h=seq.axis_Synopticprime_w_soil, v=seq.axis_Synopticprime_CO2, col=segcol, lty=3)