Plot（）命令在图的顶部移动x轴

Question

我试图将x轴标记和刻度标记移动到顶部的图上方。这是我的代码。

ucsplot <- plot(ucs, depth, main= "Depth vs. UCS", xlab = "UCS (psi)", ylab="Depth (ft)", type="l", col="blue", xlim=c(0, max(dfplot[,3]+5000)), ylim = rev(range(depth)))
ucsplot

如何让x轴标记和刻度标记仅显示在顶部而不是底部？另外，如何让标题不能正好位于刻度线正上方的数字之上？另外，如何使图表开始不向右偏移一点？如零和起始数字在图的角落而不是偏移。

Answer 1

似乎OP正在寻找一个plot，其中x轴位于顶部。 OP尚未提供数据。因此，使用示例数据框，解决方案可以显示为：

df <- data.frame(a = 1:10, b = 41:50)

plot(a ~ b, data = df, axes = FALSE, xlab = NA, ylab = NA)
axis(side = 2, las = 1)
axis(side = 3, las = 1)