案例 ggplot(head(age_data,10),aes(x=reorder(Country,age_median),y=age_median))+ geom_bar(aes(fill=Country),stat='identity')+ geom_text(aes(label=age_median),hjust=1.4,colour='white')+ coord_flip()+ theme_minimal()+ theme(legend.position='none') 相关知识1:画…