如何固定Y量表以在Barplot中包含不同的级级订单

Question

我遇到了一些麻烦，用ggplot2绘制数据框架。

我对绘图并没有问题。我的分布与我想要的完全相同。但是，该图仅显示幅度顺序的一部分。数据框显示-07，-08和-09的数据。我尝试了下面的图表来使用空白，断裂和一些转换，但结果不好。在下面，您可以找到我想绘制的示例。我只与R一起工作，因此，如果您只能共享R代码，我将不胜感激。

这是示例代码：

##plot data
ggplot(data, aes(x = reorder(Treatment, -mean), y = mean))+
  geom_bar(aes(x = reorder(Treatment, -mean), y= mean), stat="identity", fill="black" , alpha=0.5)+
  geom_errorbar(aes(x = reorder(Treatment, -mean), ymin=mean-se, ymax=mean+se), width=0.4, colour="black", alpha=0.9, size=1.3)+
  theme(
    line = element_line(colour = "black", size = 1, linetype = 1, lineend = "butt"), 
    rect = element_rect(fill = "white", colour = "black", size = 1, linetype = 1), 
    aspect.ratio = 1,
    plot.background = element_rect(fill = "white"),
    plot.margin = margin(1, 1, 1, 1, "cm"),
    axis.text = element_text(size = rel(2.5), colour = "#000000", margin = 1), 
    strip.text = element_text(size = rel(0.8)), 
    axis.line = element_blank(), 
    axis.text.x = element_text(vjust = 0.2), 
    axis.text.y = element_text(hjust = 1), 
    axis.ticks = element_line(colour = "#000000", size = 1.2), 
    axis.title.x = element_text(size = 30, vjust=0.5), 
    axis.title.y = element_text(size = 30, angle = 90), 
    axis.ticks.length = unit(0.15, "cm"), 
    legend.background = element_rect(colour = NA), 
    legend.spacing = unit(0.15, "cm"), 
    legend.key = element_rect(fill = "grey95", colour = "white"), 
    legend.key.size = unit(1.2, "lines"), 
    legend.key.height = NULL, 
    legend.key.width = NULL, 
    legend.text = element_text(size = rel(2.0)), 
    legend.text.align = NULL, 
    legend.title = element_text(size = rel(2.0), face = "bold", hjust = 0), 
    legend.title.align = NULL, 
    legend.position = c(.80, .88), 
    legend.direction = NULL, 
    legend.justification = "center", 
    legend.box = NULL, 
    panel.background = element_rect(fill = "#ffffff", colour = "#000000",
                                    size = 2, linetype = "solid"), 
    
    panel.border = element_rect(colour = "black", fill=NA, size=2),
  )+
  ylab(expression(Lp[r]~(m~s^-1~Mpa^-1))) + xlab(expression(Treatment))

Answer 1

library(ggbreak)

df <- data.frame(treatment = factor(1:4),
                 y = c(100000, 1000, 100, 10),
                 se = c(10000, 100, 10, 1))

ggplot(df, aes(x=treatment, y=y)) +
  geom_col() +
  geom_errorbar(aes(ymin=y-se, ymax=y+se), width=.4) +
  scale_y_cut(breaks=c(25, 150, 1600))