plot_grid 图表未对齐

Question

我正在尝试将森林图与值的数据表对齐。数据表在最后一个数据点之前结束。我的代码和带有虚拟标签的绘图如下。感谢您的帮助！！

p <-         
  ggplot(forest_plot_data, aes(x = est, y = order, xmin = low, xmax = upp))+
  geom_vline(xintercept = 1, linetype='dashed', color='black')+
  geom_pointrange(shape = 22, size=0.8) +
  theme_classic() +
  scale_y_discrete(limits = forest_plot_data$order) +
  scale_x_continuous(name='Adjusted odds ratio (95% confidence interval) of mortality')+
  theme(axis.text.y = element_blank(), 
        axis.title.y = element_blank(),
        axis.title.x = element_text(family='serif', size=14),
        axis.text.x = element_text(family='serif', size=12),
        plot.margin = margin(40,20,60,-1),
        axis.ticks.y = element_blank(),
        axis.line.y = element_blank())

data_table1 <- ggplot(data = forest_plot_data) +
  geom_text(aes(x=0, y = order, label=group), hjust=0, family='serif', size=5, vjust=0) +
  geom_text(aes(x=0.052, y = order, label=var),   hjust=0, family='serif', size=5, vjust=0) +
  geom_text(aes(x=0.09, y = order, label=label), hjust=1, family='serif', size=5, vjust=0)+
  theme_void() + 
  theme(plot.margin = margin(20,-3,40,20))

 p_total <- 
   plot_grid(data_table1, p, ncol=2, align='h',axis='b')


p_total +
  annotate("richtext", x=0.01, y=0.96, label='**Characteristic**',
           family='serif', size=5, hjust=0, fill=NA, label.color=NA)+
  annotate("richtext", x=0.4, y=0.96, label="**aOR (95% CI)**", 
           family='serif', size=5, hjust=0, fill=NA, label.color=NA)

Answer 1

这是使用 matplotlib 或 seaborn 等库中的plot_grid 时出现的一个典型问题，当由于轴刻度、刻度标签或图形大小不一致而导致图形未对齐时。以下是调试和解决问题的步骤：

1. 检查轴限制和比例 使用 plt.xlim() 和 plt.ylim() 或通过在网格函数中设置 sharex=True 和 sharey=True 确保所有子图具有相同的轴限制。 使用统一的尺度（例如，所有子图都使用线性或对数。
2. 余额刻度标签 太长或不一致的刻度标签可能会重叠绘图。使用带有 plt 的统一标签。 xticks() 或 plt.yticks()。 使用 plt.xticks(rotation=45) 旋转标签或使用 labelpad 进行调整。
3. 等长宽比 使用 ax.set_aspect() 为所有子图设置相同的纵横比。 例如：ax.set_aspect('equal').
4. 使用tight_layout或constrained_layout 添加 plt. strict_layout() 或在 plt.figure() 中指定 constrained_layout=True 以自动调整间距。