如何将facet_grid右侧罗马数字标签移至左侧并移除顶部标签？

要实现罗马数字标签移至左侧、移除顶部标签行的需求，可通过以下代码调整实现：

1. 调整标签位置至左侧 #

egg::tag_facet_outside 内置 position 参数，默认值为 "right"，将其设置为 "left" 即可把罗马数字标签切换到左侧显示。

2. 移除顶部标签行 #

顶部标签行属于 facet_grid 的strip元素，通过 theme() 函数将对应文本和背景设为空元素即可移除。

完整代码示例 #

library(ggplot2)
library(egg)

# 构造示例数据
df <- expand.grid(
  x = 1:5,
  y = 1:5,
  row_group = c("组1", "组2"),
  col_group = c("X", "Y", "Z")
)
df$value <- rnorm(nrow(df))

# 绘图并调整标签
ggplot(df, aes(x, y, color = value)) +
  geom_point(size = 2) +
  facet_grid(row_group ~ col_group) +
  # 将标签移至左侧
  tag_facet_outside(position = "left") +
  # 移除顶部标签行
  theme(
    strip.text.x = element_blank(),
    strip.background.x = element_blank()
  )

参数说明 #

• position = "left"：直接指定外部标签的显示位置为左侧，替换默认的右侧布局。
• strip.text.x = element_blank()：隐藏顶部的标签文本内容。
• strip.background.x = element_blank()：移除顶部标签的背景条，让整体布局更简洁。

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