r - 在 R 中绘制按时间显示日期的折线图

Question

我的数据如下:

Date           Time_finished
4/3/2020       16:30:21
4/6/2020       16:43:29
4/7/2020       16:28:47
4/8/2020       16:30:38
4/9/2020       16:50:01

我想绘制一个折线图，在 x 轴上显示日期，然后在 y 轴上显示完成时间，以显示时间序列图。由于某种原因，这似乎不起作用，日期保存为日期，但时间作为一个因素，这是否也需要是日期？

我尝试过正常的情节，但没有运气。

谢谢

Answer 1

像这样吗？

df <- tibble::tribble(
       ~Date, ~Time_finished,
  "4/3/2020",     "16:30:21",
  "4/6/2020",     "16:43:29",
  "4/7/2020",     "16:28:47",
  "4/8/2020",     "16:30:38",
  "4/9/2020",     "16:50:01"
  )

library(tidyverse)

df %>% 
  mutate(Date = as.POSIXct(Date, format = "%m/%d/%y"),
         Time_finished = as.POSIXct(Time_finished, format = "%H:%M:%S")) %>% 
  ggplot(aes(x = Date, y = Time_finished, group = 1)) +
  geom_line() + scale_y_datetime(breaks = date_breaks("10 min"),
                                 minor_breaks = date_breaks("2 min"),
                                 labels = date_format("%Hh %Mm %Ss"))