我有以下展开网格的结果:
d <- expand.grid(c("x","y","z"),c("x","y","z"))
注意向量可以长于 3 和字符串长度 可能更大或有不同的模式?
我想要的是创建一个字符串的组合 但只有所有组合的一半:
Var1 Var2
1 x x
2 y x
3 y y
4 z y
5 x z
6 z z
最佳答案
您可以首先去除重复项 (x
- y
== y
- x
)对数据中的行进行排序,然后使用 duplicated
删除重复项:
d2 = t(apply(d, 1, sort))
d2[!duplicated(d2),]
[,1] [,2]
[1,] "x" "x"
[2,] "x" "y"
[3,] "x" "z"
[4,] "y" "y"
[5,] "y" "z"
[6,] "z" "z"
或者,您可以使用 combn
来获得组合,然后您只需要一些数据修补就可以得到您需要的:
levs = c("x", "y", "z")
comb_level1 = combn(levs, 1)
comb_level2 = combn(levs, 2)
t(cbind(rbind(comb_level1, comb_level1), comb_level2))
[,1] [,2]
[1,] "x" "x"
[2,] "y" "y"
[3,] "z" "z"
[4,] "x" "y"
[5,] "x" "z"
[6,] "y" "z"
我认为使用duplicated
的解决方案更好。
关于r - 如何用字符串元素扩展.grid(一半!),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17017374/