在ggplot2中为每个分面添加不同的次级X轴

我来帮你实现每个分面显示对应年份的次级X轴需求！核心思路是利用每个队列（cohort）的年龄和年份的固定换算关系——year = age_cohort + cohort，再借助ggh4x包的分面独立坐标轴功能来实现，这个包能完美解决原生ggplot没法给每个分面单独设置次级轴的问题。

步骤1：安装并加载所需包 #

首先确保你安装了ggh4x包，没有的话先安装：

install.packages("ggh4x")
library(ggplot2)
library(data.table)
library(ggh4x)

步骤2：生成数据（你的原代码不变） #

# Create the data:
data <- data.table(
  cohort = sample(c(1946,1947,1948), 10000, replace = TRUE),
  works = sample(c(0,1), 10000, replace = TRUE),
  year = sample(seq(2006,2013), 10000, replace = TRUE)
)
data[, age_cohort := year - cohort]
data[, prop_works := mean(works), by = c("cohort", "year")]

# Prepare data for plotting:
data_to_plot <- unique(data, by = c("cohort", "year"))

步骤3：绘制带分面专属次级X轴的图表 #

这里关键是用facetted_pos_scales()给每个分面单独配置次级X轴：

ggplot(data_to_plot, aes(x = age_cohort, y = prop_works)) +
  geom_point() +
  geom_line() +
  facet_wrap(~ cohort) +
  # 给每个分面设置独立的次级X轴
  facetted_pos_scales(
    x = list(
      cohort == 1946 ~ scale_x_continuous(
        sec.axis = sec_axis(~ .x + 1946, name = "Year")
      ),
      cohort == 1947 ~ scale_x_continuous(
        sec.axis = sec_axis(~ .x + 1947, name = "Year")
      ),
      cohort == 1948 ~ scale_x_continuous(
        sec.axis = sec_axis(~ .x + 1948, name = "Year")
      )
    )
  ) +
  labs(x = "Age (cohort-specific)") # 给主X轴设置清晰标签

关键部分解释 #

• facetted_pos_scales()：这个函数允许我们为每个分面单独定义坐标轴，完美适配你的需求。
• sec_axis(~ .x + cohort_value)：利用年龄和年份的换算关系，把主X轴的年龄值加上对应队列的年份，得到次级轴的年份标签。
• 每个分面的次级轴都会自动匹配主X轴的刻度位置，显示对应的年份，完全符合你的业务逻辑。

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