如何使用ggpol的facet_share为分面图设置不同坐标轴限值

需求说明 #

在使用coord_flip()的分面柱状图中，需要给两个分面分别设置原y轴（翻转后变为x轴）的起始值：左侧type1分面从20开始，右侧type2分面从80开始。直接在coord_flip()中用ylim()无法实现，一是原数据包含负值会被裁剪，二是无法给不同分面设置独立的轴起始值。

解决方案思路 #

利用geom_segment()绘制自定义的轴刻度线，配合scale_y_continuous()控制完整数据的显示范围，结合分面分组条件为每个分面设置独立的起始刻度，既保留完整数据（不裁剪负值），又实现分面轴的个性化起始值。

实现代码 #

librarian::shelf(ggpol, tidyverse)

dat <- 
  tibble(group = rep(letters[1:5], each = 2),
         type = factor(paste0("type", rep(c(1:2), 5))),
         value = c(-50, 110, -45, 120, -40, 130, -35, 140, -30, 150))

# 定义每个分面的轴起始值
axis_starts <- tibble(
  type = factor(c("type1", "type2")),
  start = c(20, 80)
)

dat %>% 
  ggplot(aes(x = group, y = value)) +
  # 绘制原始柱状图
  geom_col() +
  # 绘制自定义轴基线（每个分面对应不同起始值）
  geom_segment(
    data = axis_starts %>% crossing(group = unique(dat$group)),
    aes(x = group, xend = group, y = start, yend = start),
    inherit.aes = FALSE,
    color = "black",
    linewidth = 1
  ) +
  # 绘制自定义轴刻度短横线（可选）
  geom_segment(
    data = axis_starts %>% crossing(group = unique(dat$group)),
    aes(x = as.numeric(group)-0.1, xend = as.numeric(group)+0.1, y = start, yend = start),
    inherit.aes = FALSE,
    color = "black"
  ) +
  # 设置y轴完整范围，确保负值数据不被裁剪
  scale_y_continuous(
    limits = c(min(dat$value), max(dat$value)),
    expand = c(0, 0)
  ) +
  coord_flip() +
  facet_share(~type, scales = "free", reverse_num = TRUE) +
  # 隐藏原生轴，避免和自定义轴冲突
  theme(
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank(),
    axis.line.x = element_blank()
  )

代码说明 #

• axis_starts：绑定分面分组与对应的轴起始值，为后续自定义轴提供数据支撑。
• geom_segment：分别绘制轴基线和刻度短横线，通过inherit.aes = FALSE避免继承主图映射，确保每个分面使用对应起始值。
• scale_y_continuous：锁定完整数据范围，保证负值部分正常显示，不会因设置起始值被裁剪。
• theme：隐藏原生的x轴（即翻转后的原y轴），只保留我们自定义的起始轴。

内容的提问来源于stack exchange，提问作者r-newbie