r=1:10 u=c("a","a","a","b","b","b","c","d","e","e") uf = factor(u) rm = tapply(r, uf, mean) stripchart(r~u,vertical=TRUE,pch=21) stripchart(rm~levels(uf),vertical=TRUE,pch=3,add=TRUE) ---------- the above code creates a scatter plot of nominal data are there alternatives to generate the same or similar "kind" of figure? TIA, Mike