ggplot(x,aes(x=riskgroup,y=aod,colour=riskgroup)) + geom_dotplot() + facet(~sex) + xlab("Risk Group") + ylab("Age of Death")