案例
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：画出top n的统计图形
在数据集上用head（xx，n）做限制就行。
相关知识2：要让图形（比如 条形图）按一定顺序排列。
在aes中的加上reorder函数，带上对应的顺序数据，如ase(x=reorder(XXX,XX),y=()). 其中XX为表顺序的数据。
相关知识3：stat='identity'
stat参数表示对样本点做统计的方式，默认为identity，表示一个x对应一个y，同时还可以是bin，表示一个x对应落到该x的样本数。”说白了就是，identity提取横坐标x对应的y值，bin提取横坐标x的频数
相关知识4：geom_text, 将文本直接添加到绘图中
geom_text(aes(label=XXX),hjust=n,colour='xx'). XXX为加入的数据的数值，hjust表示传入参数在图中的位置，colour表示传入数据的颜色。
相关资料：https://www.jianshu.com/p/cde77a937096
相关知识5：对坐标轴做倒置 coord_flip()
相关知识6：选择图形主题
theme_minimal() 为最简主题，即去掉背景及其他，图像看起来比较简洁
补充ggplot2包资料：