p1= ggplot(imp,aes(x=MeanDecreaseGini,y=reorder(rownames(imp),MeanDecreaseGini)))+ geom_bar(position = position_dodge(), width = 0.5, stat = "identity", fill="steelblue")+ # 柱子的宽度与位置要保持一致,拼图时左/右才能时柱子对齐。 theme_minimal() + xlab("Mean Decrease in Gini Index"...