如何对齐不同高度的轴标签？

Question

不同高度的（x轴）标签如何水平对齐？ 这是一个例子：

nms <- c(expression(A), expression(B), expression(C),
         expression(D[1]), expression(E^1), expression(F))
boxplot(count ~ spray, data=InsectSprays, names=nms)

标签＆＃34; E＆＃34;很好地与A，B，C和F对齐，但D_1 ISN＆＃39;吨。 D_1如何与其他标签对齐？