Как мне нанести на график только временную часть метки времени, включая дату?

Итак, у меня есть такой набор временных меток:

datetime<-c("2011-09-28 03:33:00", "2011-08-24 13:41:00", "2011-09-19 16:14:00", "2011-08-18 11:01:00", "2011-09-17 06:35:00", "2011-08-15 12:48:00")

Я хочу сделать гистограмму только времен. Я разделил столбец в пространстве, чтобы получить только время, а затем преобразовал обратно в объект POSIXct, чтобы qplot отобразил его:

library(ggplot2, stringr)    
qplot(as.POSIXct(strptime((str_split_fixed(as.character(time), " ", 2)[,2]), "%H:%M:%S")))

Однако вывод as.POSIXct (strptime (( str_split_fixed (as.character (datetime), "", 2) [, 2]), "% H:% M:% S")) is

"2011-10-04 03:33:00 PDT" "2011-10-04 13:41:00 PDT" "2011-10-04 16:14:00 PDT" "2011-10-04 11:01:00 PDT" "2011-10-04 06:35:00 PDT" "2011-10-04 12:48:00 PDT"

qplot рисует то, что я хочу, но это похоже на запутанный хак для меня. Конечно, есть способ сделать это лучше? Я мог преобразовать во время эпохи и построить график, но я старался не делать это как дополнительный шаг.

Главный вопрос: «Как мне контролировать вывод strptime?»