如何在ggplot2中实现手绘铅笔填充？

Question

我看到了这篇关于可视化的博文：http://www.darkhorseanalytics.com/blog/visualizing-distributions-3 它包括一套具有美学风格的图案，看起来像手绘铅笔。有没有办法在R中获得这样的纹理填充，最好使用ggplot2？我知道xkcd package中可用的手绘字体和线条，但我对获得手绘填充效果特别感兴趣，如下面的直方图所示（取自上面发布的darkhorseanalytics链接） ），xkcd包中无法使用。

关于如何在R中创建类似内容的任何想法

要明确的是，我正在寻找有关如何生成手绘填充效果的想法，类似于hand-drawn effect for lines，这是本网站上非常富有成效的头脑风暴的主题。 Fill effects are not easy to implement in ggplot2，但并非不可能。抖动对角线填充线效果可能是一个合理的起点。 Ben还提到annotation_raster()这是另一种合理的方法。

我知道填充纹理目前不是ggplot2开发团队的优先考虑事项，而且他们需要difficult to implement for a number of reasons。这并不意味着他们不会有用，或者说我们无法想出办法。 ：）