stem() output order in R
Try to capture output, and modify it in a desired way:

rev.stem &lt;- function(data){
  out &lt;- capture.output(stem(data))
  out &lt;- c(out[1:3], rev(out[4:length(out)]))
  cat(out, sep="\n")
}

rev.stem(cars$dist)