R语言线性混合效应图显示不全，求边距调整方案

针对你用plot_model绘制线性混合效应模型预测图时出现的截断问题，可通过以下几种方式调整边距或相关设置来解决：

• 直接扩展图表边距
  在theme()中设置plot.margin参数，给被截断的一侧（比如右侧或底部）预留足够空间。示例：

  plot <- plot + theme(
    plot.margin = unit(c(1, 3, 1, 1), "cm")  # 顺序：上、右、下、左，单位可按需调整
  )
  

  根据你的截断位置调整对应方向的数值，比如右侧截断就加大第二个值。

• 清理重复的轴范围设置
  你同时用了coord_cartesian(xlim = c(0.5, NA))和xlim(c("baseline", ...))，这会导致轴范围处理冲突，建议保留一种方式。推荐用scale_x_discrete替代xlim，更适配离散型x轴：

  # 替换原xlim行
  scale_x_discrete(limits = c("baseline", "60 bpm", "16 bpm", "10 bpm", "6 bpm", "random"))
  

  若不需要coord_cartesian的缩放效果，可直接移除它，避免和轴范围设置冲突。

• 覆盖主题自带的边距
  theme_apa()和theme_tq()可能自带固定边距设置，导致自定义设置被覆盖。可以把theme()的边距调整放在主题叠加之后，确保生效：

  plot <- plot + theme_apa() +
    theme(plot.margin = unit(c(1, 2.5, 1, 1), "cm"))
  

• 调整图例位置（如果是图例截断）
  如果是右侧图例被截断，除了扩展边距，还可以把图例移到图表内部：

  plot <- plot + theme(
    legend.position = c(0.85, 0.8)  # 坐标范围0-1，代表相对图表的位置
  )
  

修改后的完整代码示例 #

# visual inspection of data 
fit <- model_full
# Plot model
plot <- plot_model(fit, type = "pred", terms = c("Condition", "Group")) +
  theme_tq() +
  scale_colour_tq() + 
  scale_fill_tq(light) + 
  labs(
    title = "",
    y = "Score [ 0-5 ]",
    x = "Condition"
  ) +  
  scale_x_discrete(limits = c("baseline", "60 bpm", "16 bpm", "10 bpm", "6 bpm", "random")) +
  ylim(c(0,5)) + 
  ggplot2::labs(colour = "Group") + 
  scale_color_manual(values = c('Red','Black')) +
  theme_apa() +
  # 调整边距，解决截断
  theme(
    plot.margin = unit(c(1, 3, 1, 1), "cm")
  )
plot

内容的提问来源于stack exchange，提问作者user19785597