Fonction "density" de barplot

Bonjour,
Je veux croiser les droites obliques que j'ai créé dans les barres que j'ai créé avec le code ci-dessous:

Code:

test<-c(4,8,9,6,7)
barplot(test,density =20,angle=45)

Aussi, est-il possible de remplacer d'autres symboles (points) à la place des droites obliques.
Merci d'avance pour votre aide
Komine

c'est finalement fait avec:
Je ne comprends pas votre réponse! toutefois j'ai réglé le problème avec:

>test<-c(4,8,9,6,7)
>barplot(test,density =20,angle=45)
>barplot(test,density =20,angle=-45, add = TRUE)