``` R library(ggplot2) df <- data.frame( time = as.POSIXct(as.Date("2010-01-01"), tz = "America/Chicago") + 1:10 * 3600, y = 1:10 ) ggplot(df, aes(time, y)) + geom_point() ggplot(df, aes(time, y)) + geom_point() + scale_x_datetime(date_labels = "%H:%M") ```