根据R中同一列中的不同值和另一列中的唯一值选择数据[重复]

Question

这个问题已经在这里有了答案：

• 消除具有不同值的组 4个答案

抱歉，标题令人困惑，不确定如何描述此问题。 好的，所以我有一个数据框，其中一列是采样点，其中有很多列，一列是采样方法，其中只有两列。 这是一个简化的版本：

site <- c("X", "Y", "X","Z") 
method <- c("A", "B", "B", "A")
data <- data.frame(site, method)
data
  site method
1    X      A
2    Y      B
3    X      B
4    Z      A

现在，有些站点使用采样方法A和方法B进行采样，有些站点仅通过方法A或方法B采样。

我试图仅选择使用两种方法进行采样的网站。 例如，此数据的输出如下所示：

     site method
  1    X      A
  2    X      B

我没有示例代码，因为老实说我不知道​​该怎么做。 请帮忙！

Answer 1

我们可以使用data.table 。 将“ data.frame”转换为“ data.table”（ setDT(data) ），并按“ site”分组， if唯一“ method”的长度大于1，则获取Data.table的子集。

library(data.table)
setDT(data)[, if(uniqueN(method)>1) .SD , by = site]

---

或者使用dplyr ，我们可以做到。

library(dplyr)
data %>%
     group_by(site) %>%
     filter(n_distinct(method)>1)

---

可能的base R选项为

data[ with(data, ave(method, site, FUN = function(x) length(unique(x))>1)),]