我希望能够按照一个变量 (State
) 进行数据分组,然后在每个组内找到另一个变量 (Employees
) 的最小值所在的行,并提取整行数据。
虽然 (1) 和 (2) 可以用一行代码轻松实现,但是我觉得 (3) 也应该可以,但我做不到。
这是一个数据集样例:
> 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"), 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))
使用 aggregate
按组计算 min
很容易:
> aggregate(Employees ~ State, data, function(x) min(x))
State Employees
1 AK 24
2 RI 19
... 或者 data.table
:
> library(data.table)
> DT <- data.table(data)
> DT[ , list(Employees = min(Employees)), by = State]
State Employees
1: AK 24
2: RI 19
但是我该如何提取与这些 min
值对应的整行数据,也就是包括 Company
在内的结果?