R中ggplotly无法保留ggplot对象设置的边距问题求助

ggplotly无法完全继承ggplot中theme(strip.text.y)的边距和角度设置，因为两者的渲染系统不同。需要直接修改plotly的布局参数来实现效果：

步骤1：生成基础ggplotly对象 #

先运行原代码生成ggplot对象，再转换为ggplotly：

library(ggplot2)
library(plotly)

set.seed(123) # 固定随机数，方便复现
values = rnorm(n = 12, mean = 0, sd = .3)
category = rep(c("long_category_one", "long_category_two", "long_category_three"), 4)
metric = paste0("m",seq(1, 12, 1))
df <- data.frame(metric, category, values)

p_test <- ggplot(data = df, aes(y = metric, x = values, fill = values >= 0)) +
  geom_col() +
  facet_grid(vars(category), scales = "free_y", space = "free") +
  theme(
    strip.text.y = element_text(margin = margin(15, 10, 15, 10), angle = 0),
    legend.position = "none"
  )

p_ly <- ggplotly(p_test)

步骤2：手动调整plotly布局 #

通过plotly_build解析ggplotly对象，修改左侧边距、标签角度和内边距：

# 解析plotly对象
pb <- plotly_build(p_ly)

# 增大左侧边距，给长标签留出空间（可根据实际长度调整数值）
pb$layout$margin$l <- 180

# 遍历所有facet标签（annotations），调整样式
for (anno in pb$x$layout$annotations) {
  anno$textangle <- 0  # 设置标签横向显示
  anno$x <- -0.25      # 调整标签的水平位置，避免被图表遮挡
  anno$pad <- list(t=15, r=10, b=15, l=10) # 设置标签内边距，对应原ggplot的margin
}

# 显示调整后的图表
pb

说明 #

• margin$l的数值需要根据标签长度灵活调整，确保标签完全显示；
• textangle=0对应ggplot中angle=0的横向标签；
• pad参数直接对应原margin(15,10,15,10)的上下左右边距。

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