R > ggplot2 中的日期时间数据：如何按小时创建 x 轴中断

Question

我正在使用价值 1 年的 divvy 自行车共享数据（位于此处），其中包括租赁的开始时间，并且我正在尝试根据开始时间按小时制作直方图，其中 x 轴在 2 和 1 处的主要和次要休息时间小时，分别。

我首先获取完整的开始日期 + 开始时间信息，并仅在所有日期设置为 0000-01-01 且时间准确的情况下为开始时间创建一个新列。

str(bike_trip_df$start_time)
POSIXct[1:6655120], format: "0000-01-01 17:15:49" "0000-01-01 17:23:14" "0000-01-01 02:34:23" "0000-01-01 06:52:55" "0000-01-01 11:55:29" "0000-01-01 12:41:12" "0000-01-01 12:21:50"

然后我创建了以下直方图：

ggplot(bike_trip_df, mapping = aes(x=start_time)) + 
  geom_histogram(bins = 24, color = "white", fill = "blue") +
  labs(
    title = "Usage by time of day", 
    subtitle = "Members vs Casual users", 
    x = "Ride start time", 
    y = "ride count") + 
  facet_wrap(~ member_casual) +
  scale_y_continuous(labels = scales::label_comma()) +
  scale_x_datetime(date_labels = "%H:%M")

到目前为止，一切都很好。 我不知道该怎么做是在 2 小时大休息时打破我的 x 轴，在 1 小时小休息。 当我更新到

scale_x_datetime(date_breaks = "2 hours", date_labels = "%H:%M")

我明白了

Error in as.POSIXlt.character(as.character(x), ...) : 
  character string is not in a standard unambiguous format

我的理解是这意味着 function 没有将"2 hours"识别为休息的有效定义，所以我只是不明白这个 function 是如何工作的？

此外，我尝试弄乱start_time列的格式，但其他格式（chr、hms）使我无法创建 plot，因为它们使 StatBin 操作无效。

我也尝试过使用axis.POSIXct(1, at =, format = "%H:%M")而不是scale_x_datetime ，但我不知道在at =参数中放什么。

任何帮助是极大的赞赏。 感谢您的时间！

Answer 1

不确定您的所有计算步骤，但加载数据子集，我可以使用它：

dat <- read.csv("202004-divvy-tripdata.csv")
dat[,3:4] <- lapply(dat[,3:4], function(z) as.POSIXct(paste("0001-01-01", substring(z, 12))))
head(dat)
#            ride_id rideable_type          started_at            ended_at                  start_station_name start_station_id            end_station_name end_station_id start_lat start_lng end_lat  end_lng member_casual
# 1 A847FADBBC638E45   docked_bike 0001-01-01 17:45:14 0001-01-01 18:12:03                        Eckhart Park               86 Lincoln Ave & Diversey Pkwy            152   41.8964  -87.6610 41.9322 -87.6586        member
# 2 5405B80E996FF60D   docked_bike 0001-01-01 17:08:54 0001-01-01 17:17:03           Drake Ave & Fullerton Ave              503             Kosciuszko Park            499   41.9244  -87.7154 41.9306 -87.7238        member
# 3 5DD24A79A4E006F4   docked_bike 0001-01-01 17:54:13 0001-01-01 18:08:36                McClurg Ct & Erie St              142  Indiana Ave & Roosevelt Rd            255   41.8945  -87.6179 41.8679 -87.6230        member
# 4 2A59BBDF5CDBA725   docked_bike 0001-01-01 12:50:19 0001-01-01 13:02:31        California Ave & Division St              216      Wood St & Augusta Blvd            657   41.9030  -87.6975 41.8992 -87.6722        member
# 5 27AD306C119C6158   docked_bike 0001-01-01 10:22:59 0001-01-01 11:15:54                Rush St & Hubbard St              125  Sheridan Rd & Lawrence Ave            323   41.8902  -87.6262 41.9695 -87.6547        casual
# 6 356216E875132F61   docked_bike 0001-01-01 17:55:47 0001-01-01 18:01:11 Mies van der Rohe Way & Chicago Ave              173     Streeter Dr & Grand Ave             35   41.8969  -87.6217 41.8923 -87.6120        member

gg <- ggplot(dat, mapping = aes(x=started_at)) + 
  geom_histogram(bins = 24, color = "white", fill = "blue") +
  labs(
    title = "Usage by time of day", 
    subtitle = "Members vs Casual users", 
    x = "Ride start time", 
    y = "ride count") + 
  facet_wrap(~ member_casual) +
  scale_y_continuous(labels = scales::label_comma())

由于事物之间的距离很近，我认为您有两个简单的选项来标记 x 轴：

gg +
  scale_x_datetime(
    date_minor_breaks = "1 hour", date_breaks = "2 hours",
    date_labels = "%H:%M",
    guide = guide_axis(n.dodge = 3))

或者

gg +
  scale_x_datetime(
    date_minor_breaks = "1 hour", date_breaks = "2 hours",
    date_labels = "%H:%M") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 0.5))