график каждого дня временных рядов на одном графике в ggplot

Question

У меня есть один месяц данных в виде временных рядов с 1 Hz частотой выборки:

data <- data.frame(
  date = as.POSIXct("2019-01-01 12:00:00") - 0:2678399,
  value = runif(2678400) + seq(-140, 224,len = 2678400)^2 / 10000
)

Как я могу использовать ggplot, чтобы иметь один график в день?

Answer 1

library(dplyr)
data = data %>% group_by(day = cut(date, "day"))

ggplot(data, aes(date,value),show.legend = FALSE) + 
      geom_point() +
      facet_wrap(~day, ncol = 5, scales = "free_x)