小编Max*_*Max的帖子

我有一个df格式为"long" 的data.frame .

df <- data.frame(site = rep(c("A","B","C"), 1, 7),
                 time = c(11,11,11,22,22,22,33),
                 value = ceiling(rnorm(7)*10))
df <- df[order(df$site), ]

df
  site time value
1    A   11    12
2    A   22   -24
3    A   33   -30
4    B   11     3
5    B   22    16
6    C   11     3
7    C   22     9

题

如何删除df$time每个级别不存在唯一元素的行df$site？

在这种情况下,我想删除df[3,],因为df$time时间戳33仅存在于站点A而不存在于站点B和站点C.

期望的输出:

df.trimmed
  site time value
1    A   11    12
2    A   22   -24
4    B …