Добавьте маркировки подгруппы к графику дрожания в ggplot2

У меня есть почти-коробчатая-диаграмма как график дрожания:

dt <- rbind(se,cb,cb.se)
qplot(ds, size, data=dt, geom="jitter", colour=root, facets = test ~ .)

Я хотел бы поместить сводную маркировку для каждой группы посреди графика - например, общие количества размера здесь:

 aggregate(list(size=dt$size), list(dt$ds, dt$test), sum)

   Group.1  Group.2   size
1     b217       se   9847
2      c10       se  97296
3     c613       se  21633
4       c7       se 207540
...

Я попытался использовать + geom_text(aes(x=ds, y=128, label=sum(size)), size=2) для добавления маркировок но я получаю ту же маркировку на каждом положении - как я могу получить сумму просто того раздела данных?

Править: Вот то, где я в теперь - возможно, я просто вхожу в неправильное направление

data <- rbind(se,cb,cb.se)
labels <-ddply(data, c("ds", "test"), function(df) sum(df$size))
ggplot(data=data, aes(x=ds)) +
  geom_jitter(aes(y=size, colour=root)) +
  geom_text(data=labels, aes(x=ds, y=600, label=V1), size=3) +
  facet_wrap(test ~ .)

Этот код не работает - я добираюсь undefined columns selected ошибка... где-нибудь. Возможно, это из-за нескольких data= разделы?