在geom_bar（）/ geom_col（）栏中添加图案或纹理？

Question

有时候，我需要geom_bar（）/ geom_col（）条纹的某种图案或纹理（即用于黑白打印）。例如，以下某些人可能难以查看：

library(ggplot2)
library(dplyr, warn.conflicts=FALSE)
library(tidyr)

d <- iris %>% 
    group_by(Species) %>% 
    summarize_all(mean) %>% 
    gather(key, val, -Species)

ggplot(d, aes(x = Species, y = val, fill = key)) +
    geom_col(position = "dodge") +
    scale_fill_grey()

有good questions and answers on Stack Overflow（也是here）。然而，解决方案是复杂的并且基本上涉及手工创建图案或纹理。我想知道是否有人有一般性的想法或建议或新方法以不同的方式解决这个问题。通常当我认为我不能用ggplot2做某事时，这意味着改变我对解决它的想法 - 但其他（罕见）时间它还没有实现！