跟着PNAS学画图：R语言ggplot2分组添加拟合曲线