Подбалансировка несбалансированных данных панели по диапазону дат

Question

У меня есть несбалансированная панель данных, подобная этой.

date          firms     return
2003-03-01      A       2
2003-04-01      A       5
2003-05-01      A       1
2003-06-01      A       4
2003-07-01      A       4
2003-08-01      A       3
2003-09-01      A       2
2003-10-01      A       5
2003-11-01      A       3
2003-12-01      A       2
2004-01-01      A       8
2004-02-01      A       4
2004-03-01      A       3
2004-04-01      A       5
2004-05-01      A       3
2004-06-01      A       2
2004-07-01      A       2
2004-08-01      A       5
2004-09-01      A       1
2004-10-01      A       4
2004-11-01      A       4
2004-12-01      A       3
2003-03-01      B       3
2003-04-01      B       5
2003-05-01      B       3
2003-06-01      B       2
2003-07-01      B       2
2003-08-01      B       5
2003-09-01      B       3
2003-10-01      B       2
2003-11-01      B       8
2003-12-01      B       4
2004-01-01      B       3
2004-02-01      B       3
2004-03-01      B       5
2004-04-01      B       3
2004-05-01      B       2
2004-06-01      B       2
2004-07-01      B       5
2004-08-01      B       1
2004-09-01      B       4
2004-10-01      B       4
2004-11-01      B       3
2004-12-01      B       3
2005-01-01      B       3
2005-02-01      B       3
2005-03-01      B       5
2005-04-01      B       3
2005-05-01      B       2
2005-06-01      B       2
2005-07-01      B       5
2005-08-01      B       3
2005-09-01      B       2
2005-10-01      B       8
2005-11-01      B       4
2005-12-01      B       4

Данные представляют собой месячную несбалансированную панель, где все фирмы не имеют одинакового количества дат наблюдения.Я хочу разбить этот набор на две части по дате.Я попробовал его с помощью этого кода, но он не работает

requre(data.table)
df1<-testset[date %between% c("2003-01-01", "2004-06-01")]
df2<-testset[date %between% c("2004-07-01", "2006-06-01")]

Можете ли вы дать мне какой-нибудь лучший код, с помощью которого я могу подмять любой диапазон дат, который мне нравится?

Answer 1

Предполагая, что ваши данные имеют такую ​​структуру.

> str(testset)
'data.frame':   56 obs. of  3 variables:
 $ date  : Factor w/ 34 levels "2003-03-01","2003-04-01",..: 1 2 3 4 5 6 7 8 9 10 ...
 $ firms : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 1 ...
 $ return: int  2 5 1 4 4 3 2 5 3 2 ...

Вы можете преобразовать дату в формат POSIXct, чтобы ваш код работал.

testset$date <- as.POSIXct(testset$date)

library(data.table)
df1 <- testset[testset$date %between% c("2003-01-01", "2004-06-01"), ]
df2 <- testset[testset$date %between% c("2004-07-01", "2006-06-01"), ]