用R处理照片打造铅笔画效果

之前看过一篇文章，介绍的是如何在GIMP中对照片进行处理，产生一种铅笔画的效果。原文在这里，步骤主要分四步：

1. 将照片去色；

2. 复制图层，将图层反色；

3. 对上层图层进行高斯模糊；

4. 将上层图层设置为减淡属性；

之前写了一篇跟高斯模糊有关的文章，里面的代码可以直接用，于是简单改了改，就可以实现上面的铅笔画效果了。代码如下：

blur <- <span …