Аннотация над столбцами:

уклонение от графика в ggplot снова поставило меня в тупик. Несколько недель назад я спрашивал здесь об аннотировании текста над полосами(ССЫЛКА)и получил потрясающий ответ на использование + stat_bin(geom="text", aes(label=..count.., vjust=-1)). Я решил, что, поскольку у меня уже есть подсчеты, я просто снабжу их ..до и после, и я сказал stat_bin, что positionбыл dodge. Он выравнивает их по центру группы и регулирует вверх и вниз. Наверное, что-то незначительное. Пожалуйста, помогите мне получить текст над полосами.

mtcars2 <- data.frame(type=factor(mtcars$cyl), 
    group=factor(mtcars$gear))
library(plyr); library(ggplot)
dat <- rbind(ddply(mtcars2,.(type,group), summarise,
    count = length(group)),c(8,4,NA))

p2 <- ggplot(dat,aes(x = type,y = count,fill = group)) + 
    geom_bar(colour = "black",position = "dodge",stat = "identity") +
    stat_bin(geom="text", aes(position='dodge', label=count, vjust=-.6))