ggplot2包，如何给网格分面图加不同注解-经管之家官网！

我利用ggplot2包画了4行3列，一共12个图的分面图。
代码是：ggplot(data = AMXHhuzhe1,aes(x=FINT_SPEED))+geom_line(colour="cadetblue3",stat = "density")+facet_grid(FOGLEVEL~TYPE)
每个图形表示不同FOGLEVEL与TYPE水平下的速度概率密度分布。
我想在每个子图中加入相应水平下的样本数与平均值注解。我已经使用别的代码计算出各个水平下的样本数与平均值了。
具体取值如下所示：
"n=1", "n=1", "n=17,mean=81.08", "n=11,mean=75.58"
"n=10,mean=81.60", "n=28,mean=96.90", "n=42,mean=75.58", "n=30,mean=60.96"
"n=6439,mean=101.4", "n=19195,mean=94.22", "n=5918,mean=78.95", "n=3028,mean=64.81"
我读了《R可视化手册》，在136页中有相应的说明。但书中仅说明了一行多列的分面图加注解的方式，我尝试了很多次，仍无法为4行3列分面图添加以上注解。
附书中代码：
p <- ggplot(mpg, aes(x=displ, y=hwy)) + geom_point() + facet_grid(. ~ drv)
#构造注释数据框
f_labels <- data.frame(drv = c("4", "f", "r"), label = c("4wd", "Front", "Rear"))
p + geom_text(x=6, y=40, aes(label=label), data=f_labels)
发帖求点拨。