POSIXctの時間を1日中にプロットする

Question

私は犯罪のデータセットを扱っており、犯罪のピーク時を決定したいと考えています。 POSIXctタイプのベクトルを作成しましたが（たとえば、 "2017-01-01 00:00:00 EST"）、hist.POSIXtを使用してすべての日付のみをマップできます。

明確にするために、x軸は24時間の期間を15分のビンに分割してヒストグラムをプロットしたいと思います。ここでは、犯罪が発生した日付に関係なくすべてのデータをプロットします。

私はここでデータセットを使用しています：https://data.somervillema.gov/Public-Safety/Police-Selected-Criminal-Incidents/4jey-jqxb

私のコードをベクトル作成するには：

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

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

Answer 1

のような何か：

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))) 

を