R ggplot：根据月份调整轴间距

更新：

如何修改以下ggplot以获得以下内容：

X轴应调整数月，即基线至6个月应更短，6个月至24个月应更长，具体取决于时间点之间的月数。（解决方案如下）

包括X轴在24个月到48个月之间的中断（比如36个月）。

通过在基线检查前和48个月后减少空白，使绘图变大。（解决方案如下）

谢谢你的帮助

fat <- structure(list(study_group = structure(c(1L, 1L, 1L, 1L, 2L, 
2L, 2L, 2L), .Label = c("Intervention group", "Control group"
), class = "factor"), mean1 = c(37.02, 32.95, 34.18, 36.38, 37.1, 
37.27, 37.64, 38.22), se1 = c(0.22, 0.3, 0.35, 0.38, 0.23, 0.35, 
0.28, 0.32), timepoint1 = c(0, 6, 24, 48, 0, 6, 24, 48)), row.names = c(3L, 
7L, 11L, 15L, 19L, 23L, 27L, 31L), class = "data.frame")


ggplot(fat, aes(timepoint1, mean1, colour = study_group)) +
  geom_point(size=2) + 
  geom_line(size=1.2) +
  geom_errorbar(aes(ymin=mean1-se1, ymax=mean1+se1), width=1, size=1) + 
  scale_x_continuous(
    breaks = c(0, 6, 24, 36, 48),
    labels = c("Baseline", "6 months", "24 months", "36 months", "48 months"),
    expand = c(0.05, 0))

---

fat您最好的选择可能是将月数编码为
数值
向量，而不是因子/字符。然后可以设置打断并重新标记x轴。两侧的空白由标尺的
expand
参数控制。下面是虚拟数据的示例：

库（ggplot2）
#>警告：包“ggplot2”是在R版本4.0.3下生成的
df ggplot2本机不支持不连续轴。我不建议使用它们，而且您显示的数据并不真正保证不连续轴。如果你觉得间距不合适，你可以使用平方根变换，我个人认为它比不连续轴更合适。然而，如果你真的坚持这样做，这是我之前给出的关于分解y轴的答案（但也应该适用于x轴）。我现在提供了数据以及你建议的更新代码。即使你提供了链接，我仍然无法找到中断。这不是给我的吗？你能帮我吗？谢谢