按组提取对应于变量最小值的行

Question

按组提取对应于变量最小值的行

我希望(1)用一个变量(State)，(2)在每个组中找到另一个变量的最小值行(Employees)，以及(3)提取整行。

(1)和(2)是简单的一行，我觉得(3)也应该是，但我不能理解。

下面是一个示例数据集：

> data
  State Company Employees1    AK       A        822    AK       B       1043    AK       C        374    AK       D        245    RI       E        196    RI       F       1187    RI       G        888    RI       H        42data <- structure(list(State = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 
        2L), .Label = c("AK", "RI"), class = "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))

计算min按组比较容易，使用aggregate:

> aggregate(Employees ~ State, data, function(x) min(x))
  State Employees1    AK        242    RI        19

.或data.table:

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

但是如何提取与这些min价值，即也包括Company结果呢？