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

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)

Метка "E" хорошо выровнена с 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])