传奇突破在限制ggplot2时切断

Question

我正在绘制不同类型的图表，其中我的图例中的图表中的值的颜色栏位于日志中，如下图所示：

提供类似内容的代码是：

2Dmap <- ggplot(x, aes(L, W, fill = R)) +
        geom_raster() + coord_fixed() +
        scale_fill_viridis(name="R", trans = "log", direction = -1, labels=trans_format('log10',math_format(10^.x)), breaks=cycle.breaks,
                           limits=c(10^(floor(log10(min(x$R[x$R > 0] )))), 10^(ceiling(log10(max(x$R)))) ) )+
        theme_bw() + coord_fixed(ratio=12)
      2Dwmap <- 2Dwmap + theme(legend.position="bottom") + 
        theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) + 
        theme(legend.key.width=unit(2.2, "cm")) + 
        theme(legend.text=element_text(size=15)) +
        theme(legend.position="bottom",
              title = element_text(size = 20),
              axis.title.x=element_text(size = 20),
              axis.title.y=element_text(size = 20), 
              axis.text.x = element_text(size = 18),
              axis.text.y = element_text(size = 18),
              legend.title = element_text(size = 18),
              legend.text = element_text(size = 16))

所以，我正在努力寻找一种避免限制性休息的好方法。

Any1有什么想法吗？

抱歉，我无法共享数据以制作可重复的示例:)