Shiny中ggplotly分面后仅左面板x轴标签旋转生效的问题求助

问题原因 #

当ggplot2图表添加分面后，ggplotly会为每个分面生成独立的坐标轴对象，默认命名为xaxis、xaxis2、xaxis3…… 仅设置xaxis的tickangle只会对第一个分面生效。

解决方案 #

方法1：手动指定所有分面的x轴参数 #

如果分面数量固定，可直接在layout中逐个定义每个x轴的旋转角度：

library(dplyr)
library(ggplot2)
library(plotly)

df <- expand.grid(x = 1:10, group = c("a", "b"))
p <- ggplot(df) +
  geom_point(aes(x = x, y = x)) +
  facet_wrap(~ group)

ggplotly(p) %>% 
  layout(
    xaxis = list(tickangle = -45),
    xaxis2 = list(tickangle = -45)
  )

方法2：批量生成x轴配置（适配分面数量不固定场景） #

若分面数量不确定，可先获取分面总数，再动态生成所有x轴的旋转配置：

# 获取分面数量
n_facets <- length(unique(df$group))

# 生成所有x轴的配置列表
xaxis_configs <- lapply(1:n_facets, function(i) {
  list(tickangle = -45)
})
names(xaxis_configs) <- ifelse(1:n_facets == 1, "xaxis", paste0("xaxis", 1:n_facets)[-1])

# 应用配置到图表
ggplotly(p) %>% 
  layout(!!!xaxis_configs)

这里用!!!将配置列表展开为layout的参数，确保所有分面的x轴标签都会被旋转-45度。

效果验证 #

运行上述代码后，所有分面的x轴标签会统一旋转，与单面板图表的效果一致。

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