Как выровнять метки оси разной высоты?

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) 

Метка "Е" хорошо совпадает с A, B, C и F, но d_1 не является. Как D_1 можно выровнять с другими метками?

Answer 1

Вы можете построить вручную ось с помощью mtext, например.

## reset defalt names 
boxplot(count ~ spray, data=InsectSprays,names=NA) 
## adjustemnt vectors , see that only d_1 has an adj !=0 
adj=c(0,0,0,0.2,0,0) 
## loop over expressions and plot them one by one 
for(s in seq_along(nms)) 
    mtext(nms[s], side=1, line=1,at=s,padj=adj[s])