使用ggplot/ggplotly的facet_wrap时如何防止y轴标签被挤压？

解决方案 #

你可以通过调整绘图总高度、优化y轴标签样式两种路径解决单列分面下的y轴标签重叠问题，以下是可直接运行的实现代码：

方案1：调整总高度+缩小y轴标签字号（推荐，保留原y轴刻度规则）

该方案不需要修改分面逻辑，仅通过适配高度和标签样式解决重叠：

library(ggplot2)
library(plotly)

# 示例数据
mpg2 <- subset(mpg, manufacturer %in% c("audi", "chevrolet", 
"dodge","ford","honda","hyundai","jeep","land rover","lincoln","mercury","nissan", "pontiac", 
 "subaru",  "volkswagen"))

base <- ggplot(mpg2, aes(displ, hwy)) + 
  geom_blank() + 
  xlab(NULL) + 
  ylab(NULL) +
  theme(
    # 缩小y轴标签字号，也可添加angle参数旋转标签进一步节省空间
    axis.text.y = element_text(size = 7)
  )

p <- base + facet_wrap(~manufacturer, ncol = 1)
# 给ggplotly设置足够的总高度，14个分面设置1200px高度可完全避免挤压
ggplotly(p, height = 1200)

你遇到的重叠效果参考：

方案2：简化y轴刻度数量

如果需要控制总高度不能太高，可以自定义y轴刻度仅保留首尾数值，减少标签数量：

p2 <- base + 
  facet_wrap(~manufacturer, ncol = 1, scales = "free_y") +
  scale_y_continuous(
    # 每个分面y轴仅展示最小、最大两个刻度
    breaks = ~ c(floor(min(.x)), ceiling(max(.x)))
  )
ggplotly(p2, height = 900)

注意事项 #

• 如果需要所有分面的y轴刻度保持统一，不要添加scales = "free_y"参数，仅调整ggplotly的height参数和标签字号即可
• 总高度可根据实际展示场景调整，分面数量越多，需要的总高度越高

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