scale_x_square()？

Question

我有一个数据集，x轴在0到1之间，数据中更有趣的部分接近1，所以我想炸掉这个区域。

我可以用scale_x_sqrt()把面积扩大到接近于零，所以我想用相反的方法。

最起码的例子：

df <- data.frame(x=seq(0,1,length.out=100), y=1:100)
ggplot(df, aes(x=x, y=y)) + geom_line() + scale_x_sqrt()

在这里，我想用类似scale_x_square()的东西代替。

Answer 1

为了完整起见，下面是一个例子。请注意与符号有关的微妙之处。即使您的x值范围仅为0向上，由于ggplot在默认情况下扩展了绘图限制，您也需要转换才能正确地处理负值。

pow_trans <- function(n = 2){
    scales::trans_new("pow",
                      transform = function(x) sign(x) * x^n,
                      inverse = function(x) sign(x) * abs(x)^(1/n))
}
ggplot(df, aes(x=x, y=y)) + 
    geom_point() + 
    scale_x_continuous(trans = pow_trans(3))