有个数据提取问题，描述如下：

图示为rdata里读取到的2012-2013年沪A数据

我的目标是，提取（每个股票+每个月）的头一个交易日和最后一个交易日所对应的数据

也就是红框里的这些行。

我知道得从第二列的date入手，

但是每个股票以及每个月的头一个交易日和最后一个交易日，

可能互不相同，没有固定日期

想麻烦高手们支个招，非常感谢

先把2012-01-29，分开year:2012, month:01, day:29，比如处理后的数据为D，

library(data.table)

D <- data.table(a = c(3,4,5,6,7,8), 

                year = c("2012","2012", "2012", "2012", "2012", "2012"), 

                month = c("01","01", "01", "02", "02","02"), 

                day = c("02", "29", "18", "01", "29", "10"))





D

L1 <- D[, day == min(day), by = list(year, month)][, V1]

L2 <- D[, day == max(day), by = list(year, month)][, V1]

L <- L1 | L2

D[L, ]