R中利用mgcv 包绘制GAM图，如何在广义相加模型进行加权