Can't control the colours properly....

> dt8$colour
 [1] "red"   "red"   "black" "black" "black" "black" "black" "black" "black" "black" "black"
[12] "black" "black" "black" "black" "black" "black" "black" "black" "black" "black" "black"
[23] "black" "black" "black" "black" "black" "black" "black" "black" "black" "black" "black"
[34] "black" "black" "black" "black" "black" "black" "black" "black" "black" "black" "black"
[45] "black" "black" "black" "black" "black" "black" "black" "black" "black" "black" "black"
[56] "black" "black" "black" "black" "black" "black" "black" "black" "black" "black" "black"
[67] "black" "black" "black" "green" "green" "green" "green" "green" "green" "green" "green"
[78] "green" "green" "green" "green" "green" "green" "green" "green" "green" "green" "green"
[89] "green" "green" "green" "green" "black" "black" "black" "black" "black" "black"
Levels: "black" "green" "red"

So - two red, 23 green and the rest black.

but the command:
> stripplot(data=dt8, height~gender, jitter.data=TRUE, factor=1, cex=2, col=(dt8$colour), pch=16)

has produced this:

with two green, 23 red and the rest black.
How frustrating!!!!