错误：无法找到函数“stat_sum_single” [GGPLOT2]

Question

我试图用“stat_sum_single”与因子变量，但我得到的错误：

Error: could not find function "stat_sum_single" 

我试过因子变量转换成数字但它似乎并没有工作 - 任何想法？

全码：

ggplot(sn, aes(x = person,y = X, group=Plan, colour = Plan)) + 
       geom_line(size=0.5) + 
       scale_y_continuous(limits = c(0, 1.5)) + 
       scale_x_discrete(breaks = c(0,50,100), labels= c(0,50,100)) + 
       labs(x = "X",y = "%") + 
       stat_sum_single(mean, geom = 'line', aes(x = as.numeric(as.character(person))), size = 3, colour = 'red') 

数据：

Plan person X  m mad mmad 
1 1 95 0.323000 0.400303 0.12 
1 2 275 0.341818 0.400303 0.12 
1 3 2 0.618000 0.400303 0.12 
1 4 75 0.320000 0.400303 0.12 
1 5 13 0.399000 0.400303 0.12 
1 6 20 0.400000 0.400303 0.12 
2 7 219 0.393000 0.353350 0.45 
2 8 50 0.060000 0.353350 0.45 
2 9 213 0.390000 0.353350 0.45 
2 15 204 0.496100 0.353350 0.45 
2 19 19 0.393000 0.353350 0.45 
2 24 201 0.388000 0.353350 0.45 
3 30 219 0.567 0.1254 0.89 
3 14 50 0.679 0.1254 0.89 
3 55 213 0.1234 0.1254 0.89 
3 18 204 0.6135 0.1254 0.89 
3 59 19 0.39356 0.1254 0.89 
3 101 201 0.300 0.1254 0.89 

Person是一个因子可变的。

Answer 1

这里是GGPLOT2 CRAN包： http://cran.r-project.org/web/packages/ggplot2/ggplot2.pdf

185页上，有使用stat_sum_single的一个例子。

我相信你需要先在stat_summary中定义它。

Answer 2

函数stat_sum_single()不直接在库ggplot2中实现，但是该函数应在使用之前定义，如函数stat_summary()的帮助文件中所示。

stat_sum_single <- function(fun, geom="point", ...) { 
    stat_summary(fun.y=fun, colour="red", geom=geom, size = 3, ...) 
}