r - 如何反转轴顺序并在 ggplot 中使用预定义的比例？

Question

我读过一篇past post询问有关同时使用 scale_reverse 和 scale_log10 的问题。我有类似的问题，除了我寻求“反转”的比例是“scales”包中预定义的比例。这是我的代码:

    ##Defining y-breaks for probability scale
    ybreaks <- c(1,2,5,10,20,30,40,50,60,70,80,90,95,98,99)/100

    #Random numbers, and their corresponding weibull probability valeus (which I'm trying to plot)
    x <- c(.3637, .1145, .8387, .9521, .330, .375, .139, .662, .824, .899)
    p <- c(.647, .941, .255, .059, .745, .549, .853, .451, .352, .157)
    df <- data.frame(x, p)

    require(scales)
    require(ggplot2)

    ggplot(df)+
        geom_point(aes(x=x, y=p, size=2))+
        stat_smooth(method="lm", se=FALSE, linetype="dashed", aes(x=x, y=p))+
        scale_x_continuous(trans='probit',
                           breaks=ybreaks,
                           minor_breaks=qnorm(ybreaks))+
        scale_y_log10()

结果图: 有关更多信息，我试图实现的比例是概率绘图比例，它在比例的任一端(0 和 1)具有更精细的分辨率以显示极端事件，并且分辨率不断降低到中值(0.5 )。

我希望能够将 scale_x_reverse 与我的 scale_x_continuous 概率标度同时使用，但我不知道如何以任何类型的自定义标度构建它。对此有何指导？

Answer 1

scale_(x|y)_reverse()中的参数被传递给scale_(x|y)_continuous()，所以你应该简单地这样做:

scale_x_reverse(trans='probit', breaks = ybreaks, minor_breaks=qnorm(ybreaks))