选择具有多个不同值的组
选择具有多个不同值的组
提问于 2015-07-27 09:08:53
我有一个分组变量("from")和值(“number”)的数据：
from number
1 1
1 1
2 1
2 2
3 2
3 2我希望对数据进行子集，并选择具有两个或多个唯一值的组。在我的数据中，只有第2组有多个不同的“数字”，因此这是所需的结果：
from number
2 1
2 2回答 3
Stack Overflow用户
回答已采纳
发布于 2015-07-27 09:11:35
几种可能性，这是我最喜欢的
library(data.table)
setDT(df)[, if(+var(number)) .SD, by = from]
# from number
# 1: 2 1
# 2: 2 2基本上，对于每个组，我们检查是否存在任何差异，如果是TRUE，则返回组值。
有了R基，我就会
df[as.logical(with(df, ave(number, from, FUN = var))), ]
# from number
# 3 2 1
# 4 2 2编辑：对于非数字数据，您可以尝试用于发展版本 of data.table的新uniqueN函数(或者使用length(unique(number)) > 1代替length(unique(number)) > 1)。
setDT(df)[, if(uniqueN(number) > 1) .SD, by = from]Stack Overflow用户
发布于 2015-07-27 10:20:17
你可以试试
library(dplyr)
df1 %>%
group_by(from) %>%
filter(n_distinct(number)>1)
# from number
#1 2 1
#2 2 2或者使用base R
indx <- rowSums(!!table(df1))>1
subset(df1, from %in% names(indx)[indx])
# from number
#3 2 1
#4 2 2或
df1[with(df1, !ave(number, from, FUN=anyDuplicated)),]
# from number
#3 2 1
#4 2 2Stack Overflow用户
发布于 2015-07-27 09:38:18
使用大卫共享的方差概念，但使用dplyr方式：
library(dplyr)
df %>%
group_by(from) %>%
mutate(variance=var(number)) %>%
filter(variance!=0) %>%
select(from,number)
#Source: local data frame [2 x 2]
#Groups: from
#from number
#1 2 1
#2 2 2页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/31649049
复制相关文章
相似问题
腾讯云开发者
