R语言使用plot函数可视化密度图（density plot）、使用交叉验证方法cross-validation选择合适的经验带宽值（bandwidth）