绘制R中单个列的总和

我有一个名为：data的示例数据集，如下所示：

                ID               TIMEDATA                     DURATION      
                A                12/18/2019 4:45:10 AM           
                A                12/18/2019 4:45:11 AM         1 sec
                A                12/18/2019 9:06:59 PM         0 sec             
                B                12/18/2019 4:14:13 AM         0 sec
                B                12/18/2019 4:14:14 AM         1 sec

我想创建列“DURATION”总和的条形图，因为它与timedata hour关联

我使用过这个代码，但它不起作用

              data$TIMEDATA <- as.Date(data$TIMEDATA, format = "%m/%d/%Y %I:%M:%S %p")

               data$TIMEDATA = format(data$TIMEDATA, "%I")
               tapply(data$DURATION, data$TIMEDATA, FUN = sum)

               barplot(tapply(data$DURATION, format(data$TIMEDATA, "%I"), FUN = sum))


        dput:

         Classes ‘tbl_df’, ‘tbl’ and 'data.frame':  617195 obs. of  3                    variables:
           $ ID: Factor w/ 57 levels "","A",..: 37 37 37 37 37 43 43 43 43 43 ...
           $ TIMEDATA  : chr  "04" "04" "04" "04" ...
           $ DURATION     : num  1 1 1 0 6 1 1 1 0 1 ...

---

data$TIMEDATA如果“持续时间”是
numeric
就可以了

library(lubridate)
data$TIMEDATA <- format(mdy_hms(data$TIMEDATA), "%I")
barplot(tapply(data$DURATION, data$TIMEDATA, FUN = sum))

库（lubridate）
data$TIMEDATA注释不用于扩展讨论；这段对话已经结束。
data <- structure(list(ID = c("A", "A", "A", "B", "B"), 
    TIMEDATA = c("12/18/2019 4:45:10 AM", 
"12/18/2019 4:45:11 AM", "12/18/2019 9:06:59 PM", "12/18/2019 4:14:13 AM", 
"12/18/2019 4:14:14 AM"), DURATION = c(0L, 1L, 0L, 0L, 1L)),
class = "data.frame", row.names = c(NA, 
-5L))