barplot(Sardine)
main="Frequency Of Rubbish Types found on the Sardine Run",
xlab="Rubbish Type"
ylab="Frequency of rubbish type found"
xlim=c(0,50)
ylim=c(0,28)
Border="red"
col="red"
density=10
horiz=TRUE
names.arg=c("Hard Plastic", "Soft Plastic", "Cigarette Pack", "Cigarette Butt", "Food Wrapper", "Bottles"," Plastic foodware eg plates cups and cutlery", "Bottle Caps", "Single Use Plastic Bag", "Disposible Vapes", "Metal", "Textiles", "Styrafoam", "Plastic Wire", "Paint Roller", "Zipper", "Glass", "Fishing line", "Fishing line with hook", "Fibreglass", "Sandpaper", "Facemask", "Rubber", "Balloon", "Tile", "Feminine Hygeine Products", "Beauty Products", "Diving Gear")
)