R语言数据可视化 ggplot2基础3 添加几何对象