有個數(shù)據(jù)提取問題，描述如下：

圖示為rdata里讀取到的2012-2013年滬A數(shù)據(jù)

我的目標是，提?。總€股票+每個月）的頭一個交易日和最后一個交易日所對應的數(shù)據(jù)

也就是紅框里的這些行。

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

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

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

想麻煩高手們支個招，非常感謝

先把2012-01-29，分開year:2012, month:01, day:29，比如處理后的數(shù)據(jù)為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, ]