R/plot_time_of_day.R

In tobinsouth/FacebookMessageTimes: Facebook Message Times

#' Plot of messages over time
#'
#' Plots the distribution of messages over the course of a
#' normal day in the timezone of the datetime objects.
#'
#' @param raw_datetime: A list of datetime objects of messages.
#'
#' @export
plot_time_of_day <- function(raw_datetime){

  clockS = function(t){hour(t)*3600+minute(t)*60+second(t)}

  time_of_day_num <- clockS(raw_datetime)

  ggplot(tibble(time_of_day_num), aes(x= time_of_day_num)) +
    geom_histogram() +
    scale_x_continuous(breaks=c(1:24*60*60),
                       labels=c(as.character(1:24)))+
    xlab("Local Time of Day")

  }