stem.leaf(pop.change$Pct.change, m = 2, depth = F) stem.leaf(pop.change$Pct.change, m = 5) ...