Question

据我所知，data.table允许您根据列中的组进行计算。例如。

可重复的示例

iris[,.SD[which.min(Petal.Width)], by=Species]

产生

 Species Sepal.Length Sepal.Width Petal.Length Petal.Width
1:     setosa          4.9         3.1          1.5         0.1
2: versicolor          4.9         2.4          3.3         1.0
3:  virginica          6.1         2.6          5.6         1.4

我想要满足最低限度的每一行;不仅仅是第一个，在DF中很容易实现的东西：

例如：

 Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
10           4.9         3.1          1.5         0.1     setosa
13           4.8         3.0          1.4         0.1     setosa
14           4.3         3.0          1.1         0.1     setosa
33           5.2         4.1          1.5         0.1     setosa
38           4.9         3.6          1.4         0.1     setosa
58           4.9         2.4          3.3         1.0 versicolor
61           5.0         2.0          3.5         1.0 versicolor
63           6.0         2.2          4.0         1.0 versicolor
68           5.8         2.7          4.1         1.0 versicolor
80           5.7         2.6          3.5         1.0 versicolor
82           5.5         2.4          3.7         1.0 versicolor
94           5.0         2.3          3.3         1.0 versicolor
135          6.1         2.6          5.6         1.4  virginica

我不想要的只是只是满足最低标准的第一个实例：

这相当于使用data.frame

执行此类操作

iris        
iris <- as.data.frame(iris) #in case reader does not start new R session    

f.min <- function(spec) {
spec.sub <- iris[iris$Species==spec,]
min.rows <- spec.sub[spec.sub$Petal.Width == min(spec.sub$Petal.Width),]
}             

do.call(rbind, lapply(levels(iris$Species), f.min ))

data.table中有一些强大的功能值得学习。因此，为什么我想知道data.table中的等价物。

Answer 1

尝试：

iris[,.SD[which.min(Petal.Width)], by=Species]

这会给你最小的但不显示关系。

      Species Sepal.Length Sepal.Width Petal.Length Petal.Width
1:     setosa          4.9         3.1          1.5         0.1
2: versicolor          4.9         2.4          3.3         1.0
3:  virginica          6.1         2.6          5.6         1.4

显示关系的dplyr解决方案将是：

require(dplyr)
require(magrittr)
iris %>% 
  group_by(Species) %>% 
  filter(rank(Petal.Width, ties.method= "min") == 1)

来源：本地数据表[13 x 5] 团体：物种

   Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
1           4.9         3.1          1.5         0.1     setosa
2           4.8         3.0          1.4         0.1     setosa
3           4.3         3.0          1.1         0.1     setosa
4           5.2         4.1          1.5         0.1     setosa
5           4.9         3.6          1.4         0.1     setosa
6           4.9         2.4          3.3         1.0 versicolor
7           5.0         2.0          3.5         1.0 versicolor
8           6.0         2.2          4.0         1.0 versicolor
9           5.8         2.7          4.1         1.0 versicolor
10          5.7         2.6          3.5         1.0 versicolor
11          5.5         2.4          3.7         1.0 versicolor
12          5.0         2.3          3.3         1.0 versicolor
13          6.1         2.6          5.6         1.4  virginica

'ties.method'参数是您可以选择要显示的内容的地方。

希望这有帮助。

根据data.table中对列的计算选择整行

1 个答案: