Desejo (1) agrupar dados por uma variável (State), (2) em cada grupo encontre a linha do valor mínimo de outra variável (Employees) e (3) extraem a linha inteira.

(1) e (2) são fáceis de usar, e eu sinto que (3) deveria ser também, mas não consigo.

Aqui está um conjunto de dados de amostra:

> data
  State Company Employees
1    AK       A        82
2    AK       B       104
3    AK       C        37
4    AK       D        24
5    RI       E        19
6    RI       F       118
7    RI       G        88
8    RI       H        42

data <- structure(list(State = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 
        2L), .Label = c("AK", "RI"), c,lass = "factor"), Company = structure(1:8, .Label = c("A", 
        "B", "C", "D", "E", "F", "G", "H"), class = "factor"), Employees = c(82L, 
        104L, 37L, 24L, 19L, 118L, 88L, 42L)), .Names = c("State", "Company", 
        "Employees"), class = "data.frame", row.names = c(NA, -8L))

Calcularmin por grupo é fácil, usandoaggregate:

> aggregate(Employees ~ State, data, function(x) min(x))
  State Employees
1    AK        24
2    RI        19

...oudata.table:

> library(data.table)
> DT <- data.table(data)
> DT[ , list(Employees = min(Employees)), by = State]
   State Employees
1:    AK        24
2:    RI        19

Mas como extraio a linha inteira correspondente a essesmin valores, ou seja, incluindo tambémCompany no resultado?