> edit(zui)
   time method   boy
1     1     A1 12.63
2     1     A2  8.71
3     2     A1 10.29
4     2     A2  7.62
5     3     A1  9.16
6     3     A2  8.43
7     4     A1  8.03
8     4     A2  7.72
9     5     A1  7.39
10    5     A2  6.29
> p <- ggplot(zui,aes(time))
> p + geom_histogram(position = 'identity',alpha=0.5,aes(y=..boy..,fill = method)) +stat_density(geom = 'line',position = 'identity',aes(colour = method))
stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
错误于eval(expr, envir, enclos) : 找不到对象'boy'

编写的程序来自http://www.plob.org/2012/09/20/3553.html，只是对应的替换了time,method,boy的位置，总是出现找不到y轴（boy排的数据），请指点！！