更新时间:2022-11-13 17:54:33
这里是 tidyverse
的一种方式 -
Here's one way with tidyverse
-
dat2 <- dat %>%
filter(!duplicated(paste0(pmax(var1, var2), pmin(var1, var2))))
# A tibble: 2 x 3
var1 var2 cor
<chr> <chr> <dbl>
1 A B 0.600
2 A C 0.400
数据 -
dat <- data_frame(
var1 = LETTERS[c(1,2,1,3)],
var2 = LETTERS[c(2,1,3,1)],
cor = c(0.6,0.6,0.4,0.4))
注意:由于@tmfmnk 清理了逻辑
Note: cleaned up the logic thanks to @tmfmnk