在 ggplot 的 x 轴上以 H:M 形式逐小时 2 小时

Question

我正在用 ggplot 做一个情节：

foo$time<-format(as.POSIXct(foo$Date, format="%Y-%m-%d %H:%M"), format="%H:%M")
p<-ggplot(data=foo,aes(x=time,y=rm)) + geom_point()

p<-p+labs(x="Hour")
p<-p+labs(y = "std")

p<-p+theme_bw()
p<-p+theme(axis.line = element_line(colour = "black"),
 panel.grid.major = element_blank(),
 panel.grid.minor = element_blank(),
 panel.border = element_blank(),
 panel.background = element_blank()) 

如何在 x 轴上接收，它们小时形式的标签将是 ex。每两个小时？我尝试过了： p+scale_x_datetime(breaks=date_breaks('2 hour'),labels=date_format('%H:%M'))

但它给了我“错误：输入无效：time_trans 仅适用于 POSIXct 类的对象”。

我有一个包含数据的大 .csv 文件。所以，我不能把它放在这里。我有两列和很多行。它们看起来像：

日期 rm

2017-06-23 00:10 1.127

2017-06-23 00:10 1.26339

2017-06-23 00:20 1.12279

Answer 1

好的，我测试一下：

requires(dplyr)

    b <- expand.grid(test_date = seq(ymd_hms("2017-04-27 22:00:00"), ymd_hms("2017-05-11 18:00:00"), by = "hour"))
    b <- b%>%mutate(x = seq(1:333))

ggplot(b, aes(x=test_date, y=x)) + geom_line() +
  scale_x_datetime(date_breaks = "2 hours", date_labels = "%H:%M")

我创建了一个包含 2 列的表，第一列是格式为 POSIXct 的日期时间，第二列是数字。你应该写：

ggplot(data = foo,aes(x = time,y = rm)) + geom_point() + scale_x_datetime(date_breaks = "2 hours", date_labels = "%H:%M")

Answer 2

install.packages("lubridate")
library(lubridate)

foo$time <- hm(foo$time)

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

请用这个替换并检查错误是否仍然存在。