Добавление Даты в R

Question

У меня есть следующий набор данных:

Data <- data.frame(
    date = c("2001-1", "2001-2", "2001-3", "2001-1", "2001-2", "2001-3", "2001-1", "2001-2", "2001-3"), 
    actor = c("A", "B", "C", "A", "B", "C", "A", "B", "C"), 
    cat = c("I", "II", "III", "I", "II", "III", "I", "II", "III"), 
    freq = c(2, 3, 4, 1, 2, 5, 2, 6, 3) 
) 

Есть актеры (А, В и С), которые обращаются три темы (I, II или III), по-другому (см FREQ).

Теперь я хочу совместить три месяца (2001-1, 2001-2 и 2001-3) на одного актера с одной четвертью на актера. Для этого необходимо также суммировать частоту.

Как я могу объединить три месяца в квартал? Как суммировать частоту в квартал?

Answer 1

Чтобы преобразовать год-месяцы кварталов вы можете попробовать это:

library(zoo) 
Data$qtr <- as.yearqtr(df$date, "%Y-%m") 

# sum up the frequency-counts per quarter 
aggregate(freq ~ qtr, data = Data, sum) 

Answer 2

aggregate(freq ~ actor + quarter +cat, 
      data=transform(Data, quarter=quarters(as.Date(paste(date, '1', sep='-')))), 
      sum) 
# actor quarter cat freq 
# 1  A  Q1 I 5 
# 2  B  Q1 II 11 
# 3  C  Q1 III 12 

quarters принимает Date объект и возвращает его номер календарного года квартал. Чтобы преобразовать ваши строки месяца в Date s в базу R, нам нужно добавить день.