Barras de preenchimento no gráfico de barras com têxteis no ggplot2 [duplicado]

Esta pergunta já tem uma resposta aqui:

Como adicionar textura para preencher cores no ggplot2? 5 respostas
test <- data.frame(a=c(1,2,3,4), b=c(4,4,4,4))
ggplot(test, aes(x=a, y=b, fill=factor(a)))+geom_bar(stat='identity')

mas também quero adicionar texitiles nesse gráfico, algo como:

Muito obrigado