Каков наилучший способ получить хвостовую строку data.table по фактору?

Скажи, что у меня есть:

> dt <- data.table(category = c("A", "A", "B", "B", "B"), value = c(1,2,3,4,5))
> dt
   category value
1:        A     1
2:        A     2
3:        B     3
4:        B     4
5:        B     5

Я хочу получить это, но я не уверен, что самый эффективный способ сделать это:

   category value
1:        A     2
2:        B     5