如何反转该图的x轴？

Question

我正在尝试绘制以下图表：

我想将x轴从1反转为0，我尝试使用一些代码，但是没有运行，因为只旋转了所有绘图，我想将点保持在原位置，并且只更改x-轴值。

我该怎么办？

我正在使用以下代码：

roc_df <- data.frame(
  fvp=rev(roc_obj$sensitivities),
  ffp=rev(1 - roc_obj$specificities))


plot(0:10/10, 0:10/10, type='n', xlab="ffp", ylab="fvp")
abline(h=0:10/10, col="lightblue")
abline(v=0:10/10, col="lightblue")
abline(coef = c(0,1), col="lightblue")
with(roc_df, {
  lines(ffp, fvp, type='l', lwd=1, col="blue")
  lines(ffp, fvp, type='b', lwd=1, col="blue")
})

谢谢

Answer 1

当您尚未发布要绘制的数据时，很难真正做到具体，但是我认为您应该能够通过在最初绘制时关闭x轴，然后手动添加来做到这一点。以您想要的方式贴上标签。像这样：

# generate your plot without an x-axis
plot(0:10/10, 0:10/10, type='n', xlab="ffp", ylab="fvp", xaxt= "n")
# put backthe x-axis, but with reversed labels
axis(1, at = seq(0, 1, 0.2), labels = rev(seq(0, 1, 0.2)))
# then pick up the rest of your code

您可能需要调整外观，但是我认为这是获取与数据不匹配的标签的唯一方法。