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

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

我的目標(biāo)是，提?。總€(gè)股票+每個(gè)月）的頭一個(gè)交易日和最后一個(gè)交易日所對(duì)應(yīng)的數(shù)據(jù)

也就是紅框里的這些行。

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

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

可能互不相同，沒(méi)有固定日期

想麻煩高手們支個(gè)招，非常感謝

先把2012-01-29，分開(kāi)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, ]