x <- rbind(usual.output$coefficients[1:3, ], c(0, rep(NA, 3)), usual.output$coefficients[-(1:3), ])
                rownames(x)[4] <- "rank1"
               
                printCoefmat(x, na.print="")

如果有多个多分类的自变量，如何自动实现呢？