返回列中只出现一次的值

Question

这似乎是一些非常基本的东西，但是在这种情况下，独特的和不同的函数不起作用。

a <- as_tibble(c(1,1,2,2,3,4,4,5))
a
# A tibble: 8 x 1
value
<dbl>
1     1
2     1
3     2
4     2
5     3
6     4
7     4
8     5

结果应该是一个标题，其中只有值，不会出现超过一次，像这样:

# A tibble: 8 x 1
value
<dbl>
1     3
2     5

我尝试了独特和明显，但这当然给了我:

# A tibble: 5 x 1
value
<dbl>
1     1
2     2
3     3
4     4
5     5

这不是我想要的。

Answer 1

使用base R，这确实有点难看。请注意，您提供的示例与打印文本不同。

xy <- data.frame(value = c(1,1,2,2,3,4,4,5))
un <- table(xy$value)
un <- un[un == 1]
xy[xy$value %in% names(un), , drop = FALSE]
value
5     3
8     5