Общие количества Barplot к месяцу с ggplot?

У меня есть данные временного ряда (я отправил их здесь как data.frame):

x <- structure(list(date = structure(c(1264572000, 1266202800, 1277362800, 
1277456400, 1277859600, 1278032400, 1260370800, 1260892800, 1262624400, 
1262707200), class = c("POSIXt", "POSIXct"), tzone = ""), data = c(-0.00183760994446658, 
0.00089738603087497, 0.000423513598318936, 0, -0.00216496690393131, 
-0.00434836817931339, -0.0224199153445617, 0.000583823085470003, 
0.000353088613905206, 0.000470295331234771)), .Names = c("date", 
"data"), row.names = c("1", "2", "3", 
"4", "5", "6", "7", "8", "9", "10"
), class = "data.frame")

Что лучший способ состоит в том, чтобы вывести это на печать как столбиковую диаграмму в ggplot, который показал бы итоговое значение в месяц (с именем месяца как текст)?

Я могу сделать это вручную путем добавления поля месяца:

x$month <- format(x$date, format="%B")
ddply(x, .(month), function(x) sum(x[, "data"]))

Затем графическое изображение этого независимо, но месяцев не заказано правильно с помощью этого подхода (предположите, что я должен создать заказанный фактор?); я также предполагаю, что существует "более легкий" путь с ggplot.