在facet_wrap分面绘图中如何将第二行分面靠右对齐？

针对第二行分面不同内容的对齐方案： #

方案1：调整第二行分面标签（小图顶部的条目标题）靠右对齐 #

推荐用ggh4x扩展包实现，无需手动修改底层图形对象：

• 加载依赖包

library(ggplot2)
library(ggh4x)

• 绘图代码示例：

# 可替换为你自己的数据集
test_data <- expand.grid(x = 1:3, y = 1:3, facet_group = paste0("分组", 1:6))
test_data$value <- rnorm(nrow(test_data))

ggplot(test_data, aes(x, y)) +
  geom_point() +
  # 将原facet_wrap替换为facet_wrap2，nrow和你原有分面行数一致
  facet_wrap2(vars(facet_group), nrow = 2,
    strip = strip_themed(
      text_x = elem_list_text(
        # 按行设置对齐：第一行hjust=0左对齐，第二行hjust=1右对齐
        hjust = c(0, 1),
        by_row = TRUE
      )
    )
  )

方案2：调整第二行分面的坐标轴文本靠右对齐 #

如果需要修改的是第二行小图的X/Y轴文本对齐，使用ggh4x的facetted_pos_scales功能：

ggplot(test_data, aes(x, y)) +
  geom_point() +
  facet_wrap(vars(facet_group), nrow = 2) +
  facetted_pos_scales(
    # 匹配第二行对应的分面分组，设置X轴文本右对齐
    x = list(
      facet_group %in% c("分组4", "分组5", "分组6") ~ scale_x_continuous(
        guide = guide_axis(label.hjust = 1)
      )
    )
  )

方案3：调整第二行分面内自行添加的文本标注靠右对齐 #

如果是你用geom_text等添加的自定义文本，可先给分面标注行号，再映射hjust参数：

# 给分面分组标记对应行号
test_data$facet_row <- ifelse(test_data$facet_group %in% c("分组1","分组2","分组3"), 1, 2)

ggplot(test_data, aes(x, y)) +
  geom_point() +
  # 第二行文本设置hjust=1靠右
  geom_text(aes(label = round(value,2), hjust = ifelse(facet_row == 2, 1, 0))) +
  facet_wrap(vars(facet_group), nrow = 2)

如果不想引入第三方包，也可以将绘制好的ggplot对象转为gtable结构，手动修改第二行对应元素的hjust属性，上述方案实现成本更低，适配性更好。

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