先把所有boxplots画出来了：
boxplot( Daten$weight~interaction(Daten$Dosis,Daten$sex, drop=TRUE))

现在加mean，看不出哪里有错呀
means<-tapply( Daten$weight, Daten$Dosis, mean)
points(means, pch=5, col="red")

可是出来的结果是只有male的boxplots加上了mean的红点儿，可是female就都没有
哪里出错了？