R 在两个变量之间的ggplot中y轴上添加Z字形

R 在两个变量之间的ggplot中y轴上添加Z字形,r,ggplot2,axis,zigzag,R,Ggplot2,Axis,Zigzag,我想在ggplot的y轴上,在变量之间添加一个之字形(一个变量范围在25到35之间,另一个变量范围在59到65之间)。我尝试使用断开轴,但是我需要使用plot而不是ggplot,我无法在plot中获得相同的图形。有没有办法在ggplot中添加一个之字形?或者我如何在绘图中添加断开轴来获得相同的图形 p11 <- ggplot(df18, aes(x=year, y=hba1c, shape = diabetes_class)) + geom_line(mapping= aes(x=

我想在ggplot的y轴上,在变量之间添加一个之字形(一个变量范围在25到35之间,另一个变量范围在59到65之间)。我尝试使用断开轴,但是我需要使用plot而不是ggplot,我无法在plot中获得相同的图形。有没有办法在ggplot中添加一个之字形?或者我如何在绘图中添加断开轴来获得相同的图形

p11 <- ggplot(df18, aes(x=year, y=hba1c, shape = diabetes_class)) +
   geom_line(mapping= aes(x= df18$year, y = df18$hba1c, colour = "grey")) +
   geom_point(aes(x= rapportagejaar, y = hba1c, colour = "grey")) +
   geom_line(mapping = aes(x= year, y = df18$bmi, colour = "black")) + 
   geom_point(aes(x= year, y = bmi, colour = "black")) +
   labs(x='Year', y='Value', shape = "") +
   theme_classic() +
   scale_color_grey(name = "", labels = c("BMI","HbA1c")) +
   theme(text=element_text(size=10,  family="Arial"), legend.position = "top", axis.title.y.left = element_text(color = "black")) + 
   scale_y_continuous(limits = c(25,65), breaks = c(25,30,35,55,60,65))

p11在绘图2中,无法生成中断的轴。这也是有充分理由的,因为它扭曲了对数据的解释。我想说,你最好的选择是在变量上刻面,对值进行对数变换,或者找出如何以R为基数绘制相同的图形。在绘图2中,无法生成中断轴。这也是有充分理由的,因为它扭曲了对数据的解释。我认为最好的选择是在变量上刻面,对值进行日志转换,或者找出如何在BaseR中绘制相同的图形。