ggplot2: график временных рядов данных по месяцам и неделям

Question

Я пытаюсь построить данные временных рядов по неделям и месяцам; в идеале, я думаю, я бы хотел использовать ящики для визуализации ежедневных данных, привязанных к неделе. Хотя я могу изменить метки и линии сетки по оси x, используя scale_x_date, что не повлияет на точки на графике.

Вот демонстрация проблемы и моего текущего (неуклюжего) решения.

library(zoo) 
library(ggplot2) 

d = as.Date(c(as.Date("2007-06-01"):as.Date("2008-05-31"))) # using zoo to reformat numeric 
x = runif(366, min = 0, max = 100) 
df = data.frame(d,x) 

# PROBLEM #  
p = ggplot(df, aes(d, x)) 
p + geom_point() 
p + geom_boxplot() # more or less useless 

# CURRENT FIX # 
df$Year.Month <- format(df$d, "%Y-%m") 
p = ggplot(df, aes(Year.Month, x)) 
p + geom_point(alpha = 0.75) 
p + geom_boxplot() # where I'm trying to get to... 

Я уверен, что есть более элегантный способ сделать это изнутри ggplot. Я прав?

@ Нижеприведенный ответ теней намного опережает. Но есть ли способ сделать это, используя биннинг? Возможно, в какой-то форме stats?

Answer 1

Вы можете рассматривать Даты как даты в R и использовать scale_x_date() в ggplot, чтобы получить нужные вам x-метки.

• Кроме того, мне легче просто создать новый переменный фактор под названием «Месяц» для группировки ящиков по месяцам. В этом случае я использовал lubridate для выполнения задачи.

• Если вы не хотите беспокоиться о создании новой переменной «Месяц», ваш bloxplot будет отображаться на 15-м месяце, что делает чтение более сложным.

  library(magrittr) 
  library(lubridate) 
  library(dplyr) 
  
  df %>% 
      mutate(Date2 = as.Date(paste0("2000-", month(d), "-", "01"))) %>% 
      mutate(Month = lubridate::month(d)) %>% 
  
  ggplot(aes(Date2, x, group=Month)) + 
      geom_boxplot() + 
      scale_x_date(date_breaks="1 month", date_labels = "%b") 
  

Если вы не создаете переменную "Месяц", не присущи рефлективный, вербальный выровняет красиво с х отметками: