R 在POSIXct中绘制一天中的时间

我正在处理犯罪数据集，希望确定犯罪的高峰时间。我已经成功创建了POSIXct类型的向量（例如，“2017-01-01 00:00:00 EST”），但只能使用hist.POSIXt映射所有日期

为了澄清，我想绘制一个柱状图，其中x轴是一个24小时的时间段，分解为15分钟的箱子，在这里我绘制所有数据，而不管犯罪发生的日期

我在这里使用数据集：

创建向量的代码：

    df<-read.csv("Police_-_Selected_Criminal_Incidents.csv", stringsAsFactors = FALSE)

    date_reported<-as.POSIXct(strptime(df$dtreported,"%m/%d/%Y %r"))

df类似于：

library(RSocrata)
library(hrbrthemes) # devtools::install_github("hrbrmstr/hrbrthemes")
library(lubridate)
library(tidyverse)

events <- read.socrata("https://data.somervillema.gov/resource/6jia-qk6r.json")

tbl_df(events) %>% 
  mutate(hour=hour(dtreported), min=minute(dtreported), tick=(hour*60)+min) %>% 
  ggplot(aes(tick)) +
  geom_histogram(bins = 4*24, color="white", size=0.1) +
  scale_x_continuous(expand=c(0,1),
                     breaks=seq(0, 1439, length.out = 5),
                     labels=c("Midnight", "06:00", "Noon", "18:00", "23:59")) +
  scale_y_continuous(expand=c(0,0), limits=c(0, 250)) +
  labs(x=NULL, y="# Events", 
       title="Police - Selected Criminal IncidentsPublic Safety",
       subtitle="Robbery, burglary, theft of motor vehicle & theft from motor vehicle since 2005",
       caption="Source: <https://data.somervillema.gov/Public-Safety/Police-Selected-Criminal-Incidents/4jey-jqxb>") +
  theme_ipsum_rc(grid="Y") +
  theme(axis.text.x=element_text(hjust=c(0, 0.5, 0.5, 0.5, 1)))

库（RSocrata）
库（hrbrthemes）#devtools:：install_github（“hrbrmstr/hrbrthemes”）
图书馆（lubridate）
图书馆（tidyverse）
事件%
变异（小时=小时（dtreported），分钟=分钟（dtreported），滴答=（小时*60）+分钟）%>%
ggplot（aes（勾号））+
几何图形柱状图（箱子=4*24，颜色=“白色”，尺寸=0.1）+
比例x连续（扩展=c（0,1），
断开=顺序（0，1439，长度=5），
标签=c（“午夜”、“06:00”、“中午”、“18:00”、“23:59”））+
连续缩放（扩展=c（0,0），极限=c（0,250））+
实验室（x=NULL，y=“#事件”，
title=“警察-选定的刑事事故公共安全”，
副标题=“自2005年以来的抢劫、入室盗窃、机动车盗窃和机动车盗窃”，
caption=“Source:”）+
主题_ipsum_rc（grid=“Y”）+
主题（axis.text.x=element_text（hjust=c（0,0.5,0.5,0.5,1）））