在ggplotly中使用facet_wrap时如何让面板名称显示在同一行

• ggplot2转换为plotly交互图时，theme()中配置的panel.spacing、分面标题（strip）样式不会被完全继承，静态图设置的面板间距在交互图中失效。
• 多变量分面场景下，plotly默认会将多个分组变量的分面标题拆分为多行展示，且默认的分面标题栏高度未适配长文本需求。
• 总高度计算仅覆盖了绘图区域的高度，没有给分面标题栏预留空间，进一步挤压布局导致标题与下方图表重叠。

从三个维度调整配置：强制分面标题不折行、直接配置plotly子图间距、总高度计算预留标题栏空间，修改后可直接运行的代码如下：

library(ggplot2)
library(tidyverse)
library(plotly)
library(magrittr)

mtcars$cyl = sample(letters[1:5], 32, TRUE)
mtcars$cyl <- as.factor(mtcars$cyl)
mtcars$gear <- as.factor(mtcars$gear)

gg_facet_nrow <- function(p){
  num_panels <- length(unique(ggplot_build(p)$data[[1]]$PANEL)) 
  num_cols <- ggplot_build(p)$layout$facet$params$ncol 
  num_rows <- wrap_dims(num_panels, ncol=num_cols)[1] 
}

# 调整分面配置和主题设置
p1 <- ggplot(mtcars, aes(mpg, wt)) +
  geom_line()+ 
  # 新增labeller参数禁止标题折行
  facet_wrap( . ~ gear,  scale = "free_y", ncol = 1, labeller = labeller(.multi_line = FALSE)) + 
  theme(
    panel.spacing = unit(1,"cm"),
    # 新增分面标题配置，禁止折行、调整边距
    strip.text = element_text(wrap = FALSE, size = 10),
    strip.margin = margin(0.3, 0, 0.3, 0, unit = "cm")
  )

p2 <- ggplot(mtcars, aes(mpg, wt)) + 
  geom_line() + 
  # 新增labeller参数禁止多变量标题折行
  facet_wrap(vars(cyl, gear), scale = "free_y", ncol = 1, labeller = labeller(.multi_line = FALSE)) + 
  theme(
    panel.spacing = unit(1,"cm"),
    strip.text = element_text(wrap = FALSE, size = 10),
    strip.margin = margin(0.3, 0, 0.3, 0, unit = "cm")
  ) 

he <- gg_facet_nrow(p1)
he1 <- gg_facet_nrow(p2)

# 总高度增加标题栏预留空间，新增layout配置子图垂直间距
ggplotly(p1, height = he * 300 + he * 60) %>% 
  layout(vertical_spacing = 0.12)

ggplotly(p2, height = he1 * 300 + he1 * 60) %>% 
  layout(vertical_spacing = 0.12)

参数说明 #

• labeller = labeller(.multi_line = FALSE)：强制多变量分面的标题在同一行展示，符合不折行的需求。
• strip.text(wrap = FALSE)：避免单变量分面标题过长时自动折行。
• layout(vertical_spacing = 0.12)：直接对plotly交互图设置子图垂直间距，优先级高于ggplot的theme配置，转换时不会失效。
• 高度计算新增he * 60：给每个分面的标题栏预留60px的高度，避免挤压绘图区域导致重叠。

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