r - 如何使用r省略data.frame中单词的倒数

Question

This question already has answers here:

Unique rows, considering two columns, in R, without order

(4 个回答)


2年前关闭。




我一直在网上寻找答案，但似乎无法接近任何地方..

我有一组代码并使用 expand.grid() 来查找它们的组合:

# TICKERS
A <- c("AIR", "AFAP", "AAL", "CECE", "ASA", "AVX")
# FIND COMBINATIONS
B <- expand.grid(A,A,stringsAsFactors=FALSE)

所以现在我想省略倒数，例如:

第 2 行和第 7 行是倒数，我只想保留这些组合之一，而不是两者。

head(B,10)
   Var1 Var2
1   AIR  AIR
2  AFAP  AIR
3   AAL  AIR
4  CECE  AIR
5   ASA  AIR
6   AVX  AIR
7   AIR AFAP
8  AFAP AFAP
9   AAL AFAP
10 CECE AFAP

最佳答案

使用 OP 的初始输出，我们可以使用 sort 和 apply 按行 MARGIN=1 'B'，然后使用 duplicated 获取 'd1' 行的非重复逻辑索引，并使用它来对 'B' 进行子集

d1 <- as.data.frame(t(apply(B, 1, sort)))
B1 <- B[!duplicated(d1),]
head(B1, 10)
#   Var1 Var2
#1   AIR  AIR
#2  AFAP  AIR
#3   AAL  AIR
#4  CECE  AIR
#5   ASA  AIR
#6   AVX  AIR
#8  AFAP AFAP
#9   AAL AFAP
#10 CECE AFAP
#11  ASA AFAP

另一个紧凑的选择是使用 data.table

library(data.table)
CJ(A, A)[V1>=V2]

关于r - 如何使用r省略data.frame中单词的倒数，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/35030908/

上一篇：rest - 带有 REST API laravel 的 CSRF

下一篇：Elixir:数组到函数参数

Answer 1

使用 OP 的初始输出，我们可以使用 sort 和 apply 按行 MARGIN=1 'B'，然后使用 duplicated 获取 'd1' 行的非重复逻辑索引，并使用它来对 'B' 进行子集

d1 <- as.data.frame(t(apply(B, 1, sort)))
B1 <- B[!duplicated(d1),]
head(B1, 10)
#   Var1 Var2
#1   AIR  AIR
#2  AFAP  AIR
#3   AAL  AIR
#4  CECE  AIR
#5   ASA  AIR
#6   AVX  AIR
#8  AFAP AFAP
#9   AAL AFAP
#10 CECE AFAP
#11  ASA AFAP

另一个紧凑的选择是使用 data.table

library(data.table)
CJ(A, A)[V1>=V2]