给定这样的数据框：
gid set a b
1 1 1 1 9
2 1 2 -2 -3
3 1 3 5 6
4 2 2 -4 -7
5 2 6 5 10
6 2 9 2 0
gid如果最大值等于set1/0，且a值大于其b值，我如何子集/分组数据帧？
所以在这里，呃...
1,3,0
2,9,1
在SQL中有点愚蠢的简单事情，但是我想更好地控制我的R，所以...
小菜一碟dplyr：
dat <- read.table(text="gid set a b
1 1 1 9
1 2 -2 -3
1 3 5 6
2 2 -4 -7
2 6 5 10
2 9 2 0", header=TRUE)
library(dplyr)
dat %>%
group_by(gid) %>%
filter(row_number() == which.max(set)) %>%
mutate(greater=a>b) %>%
select(gid, set, greater)
## Source: local data frame [2 x 3]
## Groups: gid
##
## gid set greater
## 1 1 3 FALSE
## 2 2 9 TRUE
如果您确实需要1和0，则dplyr 组会引起任何麻烦：
dat %>%
group_by(gid) %>%
filter(row_number() == which.max(set)) %>%
mutate(greater=ifelse(a>b, 1, 0)) %>%
select(gid, set, greater) %>%
ungroup
## Source: local data frame [2 x 3]
##
## gid set greater
## 1 1 3 0
## 2 2 9 1
您可以在没有管道的情况下执行相同的操作：
ungroup(
select(
mutate(
filter(row_number() == which.max(set)),
greater=ifelse(a>b, 1, 0)), gid, set, greater))
但是……但是……为什么？！:-)
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句