R语言使用plot函数可视化密度图（density plot）、使用Sheather和Jones创建的嵌入（plug-in）方法选择合适的经验带宽值（bandwidth）