我正在尝试仅提取每个行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
我们能试试
library(dplyr)
df1 %>%
distinct()
Run Code Online (Sandbox Code Playgroud)
或者在 base R
unique(df1)
Run Code Online (Sandbox Code Playgroud)