Usiłuję uzyskać górny wiersz za pomocą grupy trzech zmiennych przy użyciu tabeli data.table.

Mam działające rozwiązanie:

col1 <- c(1,1,1,1,2,2,2,2,3,3,3,3)
col2 <- c(2000,2000,2001,2001,2000,2000,2001,2001,2000,2000,2001,2001)
col4 <- c(1,2,3,4,5,6,7,8,9,10,11,12)
data <- data.frame(store=col1,year=col2,month=12,sales=col4)

solution1 <- data.table(data)[,.SD[1,],by="store,year,month"]

Użyłem wolniejszego podejścia zaproponowanego przez Matthew Dowle w następującym linku:

https://stats.stackexchange.com/questions/7884/fast-ways-in-r-to-get-the-first-row-of-a-data-frame-grouped-by-an-identifier

Próbuję zaimplementować szybsze samodzielne dołączanie, ale nie mogę go uruchomić.

Czy ktoś ma jakieś sugestie?