Для первой части вы пробовали:
round(importance(myModel$finalModel), 2)
Для того, чтобы поместить это в порядке убывания:
imp <- round(importance(myModel$finalModel), 2)
dfimp <- data.frame(feature = rownames(imp), MeanDecreaseGini = as.numeric(imp))
dfimp[order(dfimp$MeanDecreaseGini, decreasing = T),]