使用 dplyr 提取唯一的数据行

use*_*991 1 r dplyr

我正在尝试仅提取每个行b是唯一值时的行a

这是一些示例数据

a <- c(1,1,2,2,3,3,4,4,5,5,5,6,6,7,7,8,8,9,9,9,9,9,10,10,10)
b <- c(1,2,1,1,5,5,6,1,1,1,3,2,2,1,1,2,3,1,2,3,4,4,1,2,2)
df1 <- data.frame(a, b)
Run Code Online (Sandbox Code Playgroud)

并使用dplyr

library(dplyr)

Unique <- df1 %>%
  group_by(a) %>%
  filter(n_distinct(b))
Run Code Online (Sandbox Code Playgroud)

所需的输出应该是数据帧长度 18

akr*_*run 5

我们能试试

library(dplyr)
df1 %>%
    distinct()
Run Code Online (Sandbox Code Playgroud)

或者在 base R

unique(df1)
Run Code Online (Sandbox Code Playgroud)