基于R中的第二个变量删除具有非唯一值的行？

Question

我有一个带有时间戳和位置名称的数据集( radio 跟踪数据)。我想删除在同一时间戳上有两个不同位置的所有实例(同时被两个不同的接收器检测到)。

示例数据集:

ts<-c("2014-08-07 20:12", "2014-08-07 20:12",  "2014-08-07 20:13","2014-08-07 20:13","2014-08-07 20:14", "2014-08-07 20:14")
site<-c(a,a,a,b,c,c)
df<-data.frame(cbind(ts,site))
df
                ts site
1 2014-08-07 20:12    a
2 2014-08-07 20:12    a
3 2014-08-07 20:13    a
4 2014-08-07 20:13    b
5 2014-08-07 20:14    c
6 2014-08-07 20:14    c

所以我想删除第 3&4 行，但保留第 1、2、5 和 6 行。

我查看了 duplicated、distinct 和 unique 的不同应用，但不知道如何将其基于另一列(在这种情况下时间戳)。

感谢所有帮助

Answer 1

这是我使用 dplyr

的方法

df %>% 
  # consider each time stamp seperately
  group_by(ts) %>% 
  # keep only observations which have one unique `site` value
  filter(length(unique(site)) == 1)