ggplot2和chron barplot的时间数据scale_x_chron

我有很多次,想要在一个条形图中绘制每次的频率

library(ggplot2)
library(chron)
test <- data.frame(times = c(rep("7:00:00",4),rep("8:00:00",3),rep("12:00:00",1),rep("13:00:00",5)))
test$times <- times(test$times)
test
      times
1  07:00:00
2  07:00:00
3  07:00:00
4  07:00:00
5  08:00:00
6  08:00:00
7  08:00:00
8  12:00:00
9  13:00:00
10 13:00:00
11 13:00:00
12 13:00:00
13 13:00:00

选择binwidth的值来表示分钟

p <- ggplot(test,aes(x = times)) + geom_bar(binwidth=1/24/60)
p + scale_x_chron(format="%H:%M")

如您所见,x轴上的刻度加一小时：

我觉得这与时区有关,但我真的不能这样做：

Sys.timezone()
[1] "CET"

编辑：
感谢@shadow的评论

更新：

如果我先运行Sys.setenv(TZ =’GMT’),它就能完美运行.问题出在times()函数中.我自动将时区设置为GMT,如果我正在绘制x轴,ggplot会注意到我的系统时区是CET并且在绘图上增加了一个小时.
现在,如果我将我的系统时区设置为GMT,ggplot不会增加一小时.

解决方法

问题是时间(…)假设时区是GMT,然后ggplot补偿你的实际时区.这是公平的：除非你指定时区,否则时间毫无意义.更大的问题是,似乎不可能分辨时间(…)实际时区是什么(如果其他人知道如何做到这一点,我很想知道).

解决方法是使用POSIXct并确定您的时区(我的是EST).

test <- data.frame(times = c(rep("7:00:00",5)))
test$times <- as.POSIXct(test$times,format="%H:%M:%s",tz="EST")
p <- ggplot(test,aes(x = times)) + geom_bar(binwidth=60,width=.01)

binwidth = 60是60秒.