Dir*_*tel 14
分两步进行
df1 <- df[df$weight > 120, ]
df2 <- df1[order(df1$height), ]
Run Code Online (Sandbox Code Playgroud)
或者如果你必须一步 - 但它真的不是更清洁.
数据优先:
R> set.seed(42)
R> df <- data.frame(weight=rnorm(10, 120, 10), height=rnorm(10, 160, 20))
R> df
weight height
1 133.7 186.1
2 114.4 205.7
3 123.6 132.2
4 126.3 154.4
5 124.0 157.3
6 118.9 172.7
7 135.1 154.3
8 119.1 106.9
9 140.2 111.2
10 119.4 186.4
Run Code Online (Sandbox Code Playgroud)
一种方法是双子集化:
R> subset(df, weight > 120)[order(subset(df, weight > 120)$height),]
weight height
9 140.2 111.2
3 123.6 132.2
7 135.1 154.3
4 126.3 154.4
5 124.0 157.3
1 133.7 186.1
R>
Run Code Online (Sandbox Code Playgroud)
我会选择两步走.
And*_*rie 12
该软件包data.table允许您通过一行简短的代码:
借用Dirk Eddelbuettel的例子,设置了一些数据:
set.seed(42)
df <- data.frame(weight=rnorm(10, 120, 10), height=rnorm(10, 160, 20))
Run Code Online (Sandbox Code Playgroud)
将权重转换data.frame为a data.table和子集,按高度排序:
library(data.table)
dt <- data.table(df)
dt[weight>120][order(height)]
weight height
[1,] 140.1842 111.1907
[2,] 123.6313 132.2228
[3,] 135.1152 154.3149
[4,] 126.3286 154.4242
[5,] 124.0427 157.3336
[6,] 133.7096 186.0974
Run Code Online (Sandbox Code Playgroud)
小智 7
df1 <- df[order(df$height), ][df$weight > 120, ]
Run Code Online (Sandbox Code Playgroud)
只需确保在过滤器之前下订单.