Matplotlib双向条形图Y轴刻度标签居中对齐问题

1. 居中Y轴变量级别标题（如volume、MAP） #

可以借助ggtext包实现精准的居中对齐，步骤如下：

• 安装并加载ggtext包：

  install.packages("ggtext")
  library(ggtext)
  

• 给需要居中的标题类标签包裹<center>标记，再通过element_markdown解析格式：

  # 假设Y轴标签向量包含标题和子类别，给标题添加居中标记
  y_labels <- c("<center>volume</center>", "sub1", "sub2", "<center>MAP</center>", "sub3", "sub4")
  
  ggplot(your_data, aes(x = value, y = y_cat)) +
    geom_col() +
    scale_y_discrete(labels = y_labels) +
    theme(axis.text.y = element_markdown(hjust = 0.5))
  

如果不想引入额外包，也可以通过添加前导空格实现近似居中，比如根据子类别标签的字符长度，给标题匹配对应空格数：

y_labels <- c("   volume", "sub1", "sub2", "     MAP", "sub3", "sub4")
ggplot(your_data, aes(x = value, y = y_cat)) +
  geom_col() +
  scale_y_discrete(labels = y_labels)

2. 移除子图Y轴刻度（含加粗标题类变量名） #

分两种场景处理：

• 完全移除所有Y轴刻度与标签：
  在绘图的theme中直接隐藏相关元素：

  ggplot(your_data, aes(x = value, y = y_cat)) +
    geom_col() +
    facet_wrap(vars(group_var), ncol = 2) +
    theme(axis.text.y = element_blank(),
          axis.ticks.y = element_blank())
  

• 仅移除标题类变量名，保留子类别刻度：
  过滤掉标题标签即可：

  # 假设标题为指定的变量名
  keep_labels <- setdiff(unique(your_data$y_cat), c("volume", "MAP"))
  y_labels <- ifelse(your_data$y_cat %in% keep_labels, your_data$y_cat, "")
  
  ggplot(your_data, aes(x = value, y = y_cat)) +
    geom_col() +
    scale_y_discrete(labels = y_labels) +
    theme(axis.ticks.y = element_blank())
  

3. 右侧子图左移 #

如果是分面绘图，调整分面的水平间距即可：

ggplot(your_data, aes(x = value, y = y_cat)) +
  geom_col() +
  facet_wrap(vars(group_var), ncol = 2) +
  theme(panel.spacing.x = unit(-0.3, "cm")) # 负值让子图靠近，按需调整数值

如果用patchwork拼接子图，通过plot_layout设置间距：

library(patchwork)
plot1 + plot2 +
  plot_layout(ncol = 2, spacing = unit(-0.2, "cm"))

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