y轴上的对数刻度，但数据为负值

Question

我正在尝试创建一个具有对数y轴的箱形图，因为我有一些非常小的值，然后有一些高得多的值，这些值在具有连续y轴的箱形图中不能很好地工作。但是，我有负值，显然不适用于对数刻度。我想知道是否有办法解决这个问题，以便可以将数据显示在箱形图中，该图仍然易于解释，但在y轴上具有更合适的比例。

    p <- ggplot(data = Elstow.monthly.fluxes, aes(x = Month1, y = CH4.Flux)) + stat_boxplot(geom = "errorbar", linetype = 1, width = 0.5) + geom_boxplot() +
xlab(expression("Month")) + ylab(expression(~CH[4]~Flux~(µg~CH[4]~m^{-2}~d^{-1}))) +
scale_y_continuous(breaks = seq(-5000,40000,5000), limits = c(-5000,40000))+
theme(axis.text.x = element_text(colour = "black")) + theme(axis.text.y = element_text(colour = 
"black")) +
theme(panel.background = element_rect("white", "black")) +
theme(panel.border = element_rect(colour = "black", fill=NA, size=0.5)) +
theme(axis.text = element_text(size = 12))+ theme(axis.title = element_text(size = 14))+ 
theme(axis.title.y = element_text(margin = margin(t = 0, r = 15, b = 0, l = 0))) + 
theme(axis.title.x = element_text(margin = margin(t = 15, r = 0, b = 0, l = 0))) +
geom_hline(yintercept = 0, linetype ="dashed", colour = "black") 

我正在尝试创建一个具有对数y轴的箱形图，因为我有一些非常小的值，然后有一些高得多的值，这些值在具有连续y轴的箱形图中不能很好地工作。但是，我有...

Answer 1

我有一个愚蠢的解决方案：欺骗辅助轴以重新缩放y轴。我没有您的数据，只是为了说明起见而编了一些数字。