Plotly R子图重叠问题求助：多图纵向排列失败

关键方案：统一布局参数+精细化调整subplot间距与高度 #

1. 统一所有子图的边距 #

ggplotly转换的流程图和原生Plotly雷达图默认边距差异大，先手动统一所有子图的margin参数，避免布局冲突：

# 给所有子图设置一致的边距
t_comp <- t_comp %>% layout(margin = list(l = 50, r = 50, t = 50, b = 50))
fin_def <- fin_def %>% layout(margin = list(l = 50, r = 50, t = 50, b = 50))
fin_mid <- fin_mid %>% layout(margin = list(l = 50, r = 50, t = 50, b = 50))
fin_fwd <- fin_fwd %>% layout(margin = list(l = 50, r = 50, t = 50, b = 50))

2. 调整subplot的垂直间距与整体高度 #

subplot默认垂直间距过小，且整体高度不足以容纳4张子图，需手动指定：

# 组合子图时设置垂直间距、行高比例和整体高度
combined_plot <- subplot(
  t_comp, fin_def, fin_mid, fin_fwd,
  nrows = 4,
  vertical_spacing = 0.15,  # 数值越大，子图间垂直空隙越宽
  heights = c(0.3, 0.23, 0.23, 0.23)  # 按比例分配每行高度，流程图可占更大比例
) %>% layout(height = 1200)  # 整体高度按需调整，数值越大子图展示空间越充足

3. 特殊处理ggplotly转换的流程图 #

若流程图仍有布局异常，可强制关闭自动缩放并固定尺寸：

t_comp <- t_comp %>% layout(autosize = FALSE, width = 800, height = 360)

4. 清理雷达图冗余元素 #

雷达图可能存在重复的图例、标题等元素，占用额外空间，可按需隐藏：

# 隐藏雷达图的重复图例或空标题（根据实际情况调整）
fin_def <- fin_def %>% layout(showlegend = FALSE, title = list(text = "", x = 0.5))
fin_mid <- fin_mid %>% layout(showlegend = FALSE, title = list(text = "", x = 0.5))
fin_fwd <- fin_fwd %>% layout(showlegend = FALSE, title = list(text = "", x = 0.5))

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