ggplot带上标的X轴标签对齐异常问题求助

核心问题 #

• 带数学上标的X轴标签设置45度倾斜后，axis.text.x的hjust参数完全失效，标签始终左对齐，无法与X轴刻度正确对齐
• 上标^-1与前面的文本（如ha）之间存在多余空格，尝试多种写法均无法消除

解决方案 #

1. 修复标签对齐问题 #

直接用expression生成的标签属于grid图形对象，element_text的对齐参数对其不生效。推荐使用ggtext包的element_markdown渲染标签，它支持Markdown语法的格式控制，同时hjust/vjust参数可以正常生效。

2. 消除上标前的空格 #

改用Markdown的上标语法<sup>-1</sup>替代expression的写法，直接将上标与文本无缝连接，彻底解决空格问题。

修正后的完整代码 #

先安装并加载依赖包：

install.packages(c("dplyr", "ggplot2", "ggtext", "viridis"))
library(dplyr)
library(ggplot2)
library(ggtext)
library(viridis)

数据处理部分：

Example_Df <- data.frame(
  Treatment=factor(rep(c("Biochar25kgPha", "Biochar10tha", "Biochar10thaTSP", "Phosphorus"), each=4)),
  PO4=c(NA, 18.41, 21.64, 19.45, 13.05, 16.6, 19.22, 14.85, 10.92, 10.83, 18.6, 17.65, 12.14, 17.48, 19.15, 13.92),
  Precovery=c(-8.18, 14.53, -4.08, 0.23, 4.3, 1.79, -0.89, 2.88, -1.94, NA, -2.36, -0.81, -4.66, 4.56, 2.22, -5.8))

Example_Cor <- Example_Df%>%
  group_by(Treatment) %>%
  summarize(Correlation = cor(Precovery, PO4, use = "complete.obs"))%>%
  ungroup()

# 改用Markdown格式标签，同时解决空格和对齐问题
Example_Cor$Treatment <- factor(Example_Cor$Treatment,
                                levels=c("Biochar25kgPha", "Biochar10tha", "Biochar10thaTSP", "Phosphorus"), 
                                labels=c("**Biochar<br>25kg P ha<sup>-1</sup>**", 
                                         "**Biochar<br>10t ha<sup>-1</sup>**",
                                         "**Biochar<br>10t ha<sup>-1</sup> & TSP**", 
                                         "**TSP<br>Fertilizer**"))

绘图代码：

ggplot(Example_Cor, aes(x=Treatment, y=0, fill=Correlation)) +
  geom_point(aes(size=abs(Correlation)*20), shape=21) +
  scale_size(range = c(15, 30)) +
  scale_fill_viridis(option = "magma", limits=c(-1, 1), breaks=seq(-1, 1, by=0.5)) + 
  geom_text(aes(label=sprintf("%.2f", Correlation), color = ifelse(Correlation < 0, "white", "black")), size=5.5)+
  scale_color_manual(values=c("black", "white"), guide="none")+
  labs(x="", y="", title="**% P Recovery - Soil PO₄**")+  # Markdown语法处理标题下标
  scale_x_discrete()+
  guides(size = "none")+
  theme(plot.title = element_markdown(size=18, hjust=0.5),  # 用element_markdown渲染标题
        legend.position = "none",
        axis.title=element_blank(),
        axis.text.y=element_blank(),
        axis.text.x=element_markdown(angle=45, size=16, colour="black", hjust=1),  # hjust=1实现右对齐
        axis.ticks=element_blank(), 
        panel.background=element_blank(),
        plot.margin=margin(15,5,5,15))

关键修改说明 #

• 用ggtext::element_markdown替代原生element_text，支持Markdown的换行<br>、加粗** **和上标<sup>...</sup>，对齐参数可正常生效
• 标签中直接用ha<sup>-1</sup>实现无缝上标，彻底消除多余空格
• 标题也用Markdown语法处理下标，保持整体格式统一

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