在不更改 ggplot2 中的原始数据的情况下转换 y 轴

Question

我有一个关于如何在 ggplot2 中转换 y 轴的问题。 我的情节现在有两条线和一个散点图。 对于散点图，我对零附近的区域非常感兴趣。 有没有办法扩大0%到5%之间的空间，缩小20%到30%之间的空间？

我曾尝试使用coord_trans(y = "log10")转换为对数形式。 但是在这种情况下，我有很多负值，所以如果我想使用 sqrt 或 log，负值将被删除。 你有什么建议吗？

数据点示例：

df1 = data.frame(y = runif(200,min = -1, max = 1))
df1 = data.frame( x= seq(1:200), y = df1[order(abs(df1$y)),])

ggplot(df1) + 
    geom_point(colour = "black",aes(x,y) ,size = 0.1) 

我想在 0% 到 5% 之间有更多的空间，在 5% 到 30% 之间有更少的空间。

我曾尝试使用trans_new()来转换轴。

eps <- 1e-8

tn <- trans_new("logpeps",
                function(x) (x+eps)^(3),
                function(y) ((y)^(1/3) ),
                domain=c(- Inf, Inf)
              )

ggplot(df1)+ geom_point(colour = "black",aes(x,y) ,size = 0.1) + 
  # xlab("Observations sorted by PD in v3.1") + ylab("Absolute PD difference ") + 
  # ggtitle("Absolute PD for RiskCalc v4.0 relative to v3.1") +

  scale_x_continuous(breaks = seq(0, round(rownum/1000)*1000, by = round(rownum/100)*10)) + 
  scale_y_continuous(limits = c(-yrange,yrange),breaks = c(-breaksY,breaksY),
                     sec.axis = sec_axis(~.,breaks = c(-breaksY[2:length(breaksY)],breaksY), labels = scales:: percent
                                        )) +
#   geom_line(data = df, aes(x,y[,3], colour = "blue"),size = 1) +  
#   geom_line(data = ds,aes(xval, yval,colour = "red"),size = 1) + 
  coord_trans(y = tn) +
  scale_color_discrete(name = element_blank())

但是它把情节压缩到中心，这与我想要的相反。 然后我尝试使用 y = y^3，但它显示

错误：zero_range（范围）

Answer 1

尝试对 y 值进行立方根变换：

aes(y=yVariable^(1/3))

或者使用trans_new()来定义一个新的转换（例如立方根，带有令人愉悦的中断和标签）。

Answer 2

几个想法：

您可以像这样删除绘图的空边：

scale_y_continuous(expand = c(0,0))

如果您想尝试日志转换，只需执行以下操作：

scale_y_log10()

如果你想聚焦窗口：

scale_y_continuous(limits=c(-.15,.15), expand=c(0,0))

还可以考虑添加theme_bw()以获得更简洁的外观