轴标签的基线对齐

Question

这可能很容易解决，但我没有找到谷歌的任何东西，也许是因为很难说出来。运行以下代码时

Dat<-matrix(c(1:10, 1:10, seq(0.1, 1, 0.1)), 10, 3)
par(mfrow=c(1, 2))
plot(Dat[,1], Dat[,2], ylab="Y", xlab=expression(paste("A unit (", m^2, ")", sep="")))
plot(Dat[,1], Dat[,3], ylab="Y", xlab="A unit")

我得到一个很好的情节，但x轴标签不在同一基线上。原因是左图的标签的圆括号低于文本的基线，R正在绘制标签，以便在使用expression()时将文本字符串的最低点作为基线。 xlab命令。因此，右图中的“A单位”打印得比左图更低（参见示例图像，用红线表示）。如果某些标签的括号或字母的部分达到基线以下（如“g”，“q”等）而其他标签没有，那就太烦人了。有没有办法解决这个问题？