Patrones rellenos para gráficos

Como ggplot2 produce bonitos gráficos de colores, pero a veces se requiere tener gráficos en blanco y negro con rellenos de patrón . Me pregunto cómo hacer esto en ggplot2 , digamos para este código:

 ggplot(diamonds, aes(cut, fill=cut)) + geom_bar() 

Editar

¿Hay alguna función en R para hacer rellenos de patrón para gráficos?

eche un vistazo a la sexta ttwig de ejemplo (barra de barras).