r - 设置时间轴上的休息时间间隔
问题描述
首先让我们创建一些示例数据。使用lubridate
's存储时间,hm
因为这似乎是最合适的。
library(tibble)
library(lubridate)
#>
#> Attaching package: 'lubridate'
#> The following object is masked from 'package:base':
#>
#> date
(
data <- tibble(
Time = hm('09:00', '10:30'),
Value = 1
)
)
#> # A tibble: 2 x 2
#> Time Value
#> <S4: Period> <dbl>
#> 1 9H 0M 0S 1
#> 2 10H 30M 0S 1
这就是我希望情节的样子。现在我已经以半小时的间隔手动指定了休息时间。
library(ggplot2)
library(scales)
ggplot(data, aes(Time, Value)) +
geom_point() +
scale_x_time(breaks = hm('09:00', '09:30', '10:00', '10:30'))
我想每隔半小时自动创建这些休息时间。尝试使用scales::date_breaks
会出错。
ggplot(data, aes(Time, Value)) +
geom_point() +
scale_x_time(breaks = date_breaks('30 mins'))
#> Error in UseMethod("fullseq"): no applicable method for 'fullseq' applied to an object of class "c('hms', 'difftime')"
尝试使用创建中断seq
也会产生错误。
seq(hm('09:00'), hm('10:30'), hm('00:30'))
#> Note: method with signature 'Period#ANY' chosen for function '-',
#> target signature 'Period#Period'.
#> "ANY#Period" would also be valid
#> estimate only: convert to intervals for accuracy
#> Error in if (sum(values - trunc(values))) {: argument is not interpretable as logical
解决方案
您收到的处理方法的错误消息applied to an object of class "c('hms', 'difftime')"
应该给您一个线索,表明这里有一个类问题。首先要做的是检查您的时间类别,并检查文档 ( ?hm
),这两者都会向您显示hm
实际返回的是句点对象,而不是日期时间。
library(tidyverse)
library(lubridate)
class(data$Time)
#> [1] "Period"
#> attr(,"package")
#> [1] "lubridate"
所以你需要Time
变成一个Date
或类似的对象。有不同的方法可以做到这一点,但我只是快速将今天的日期粘贴Time
在一起,然后转换为日期时间对象。如果您实际上不需要日期,我使用的日期无关紧要。它基本上是创建您需要的对象的虚拟对象。
你也想scale_x_datetime
而不是scale_x_date
。如果不设置date_labels
参数,您将拥有像“”这样的标签2018-05-28 09:00:00
,因此您可以通过将格式化字符串提供给date_labels
.
data %>%
mutate(time2 = paste(today(), Time) %>% as_datetime()) %>%
ggplot(aes(time2, Value)) +
geom_point() +
scale_x_datetime(breaks = scales::date_breaks("30 mins"), date_labels = "%H:%M")
由reprex 包(v0.2.0)于 2018 年 5 月 28 日创建。