R сюжетных месяцев в течение первых 2 лет

Question

у меня есть фрейм данных с данными для макс 2-х лет период на различных объектах:

ISBN Date  Quantity 
3457 2004-06-15 10 
3457 2004-08-16 6 
3457 2004-08-19 10 
3457 2005-04-19 7 
3457 2005-04-20 12 
9885 2013-01-15 10 
9885 2013-03-16 6 
9855 2013-08-19 10 
9885 2014-09-19 7 
9885 2014-09-20 12 

Как я могу построить Jan to Dec для года, продолжила Jan to Dec для 2-й год? Я предполагаю, что идея состоит в том, чтобы нормализовать годы (иметь 1-й, 2-й), но не месяцы. (вот пример) Number of Items Sold over 2 Years Period Since Release

Answer 1

Вы можете попробовать:

data <- df %>% 
    group_by(ISBN) %>% 
    arrange(Date) %>% 
    mutate(Year = year(Date), 
     Month = month(Date, label = TRUE), 
     Rank = paste(sapply(cumsum(Year != lag(Year,default=0)), toOrdinal), "Year")) %>% 
    group_by(Rank, Month, add = TRUE) %>% 
    summarise(Sum = sum(Quantity)) 

ggplot(data = data, aes(x = Month, y = Sum, 
         group = factor(ISBN), 
         colour = factor(ISBN))) + 
    geom_line(stat = "identity") + 
    facet_grid(. ~ Rank) + 
    scale_colour_discrete(name = "ISBN") + 
    theme(panel.margin = unit(0, "lines"), 
     axis.text.x = element_text(angle = 90)) 

---

Aussming следующие df:

df <- data.frame(
    ISBN = sample(c(3457, 9885), 1000, replace = TRUE), 
    Date = sample(seq(as.Date('2004/01/01'), 
        as.Date('2011/12/31'), by = "month"), 
       1000, replace = TRUE), 
    Quantity = sample(1:12, 1000, replace = TRUE) 
) 

Это будет производить:

Answer 2

Я бы воспользовался пакетом lubridate для чего-то вроде этого. Примечание. Я обращаюсь к dataframe df, потому что вы не дали ему имени.

Так, например:

library(lubridate) 

Первый формат даты, как так:

df$Date <- ymd(df$Date) 

Затем извлечь месяц и год:

df$Month <- month(df$Date, label=TRUE, abbr=TRUE) 
df$Year <- year(df$Date) 

Оттуда вы можете построить ваш результаты с ggplot2:

library(ggplot2) 
ggplot(df, aes(x=Month, y=Quantity, colour=Year)) + 
geom_point() 

Обратите внимание, что вопрос можно задать здесь лучше, так как вы не представили воспроизводимый пример.