Barras de relleno en barplot con textiles en ggplot2 [duplicado]

Esta pregunta ya tiene una respuesta aquí:

¿Cómo agregar textura para rellenar colores en ggplot2? 5 respuestas
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')

Pero también quiero agregar texitiles en esta trama, algo como:

Muchas gracias

Respuestas a la pregunta(1)

Su respuesta a la pregunta