获得具有r中置换的给定元素集的所有组合

Question

我有两个参数（例如“ A”和“ B”），除了没有使用以外，还需要针对单独或组合使用的一组治疗方法（“ PD”，“ MO”，“ K”）进行测试经过任何处理（“。”）。我需要获得所有可能影响参数“ A”和“ B”的处理组合。我提供了一种非常基本的方法来执行此操作，但是我需要一种更有效的方法来执行此操作，因为该方法有很多方法。

这是我的可复制示例

effects <- c(".", "PD", "MO", "PD,MO", "K", "K,PD", "K,MO", "K,PD,MO")

res.perm <- permutations(n = 8, r = 2, v = effects, repeats.allowed = TRUE)
print(res.perm, quote = FALSE)

这就是我得到的

.....

[如果有人可以提供更优雅或更聪明的方式来做，那就太好了。我实际需要使用的输入是V1 = c("PD", "MO", "K")

谢谢。

Answer 1

也许我们需要

expand.grid(replicate(2, unlist(c(".", lapply(1:3, 
  function(i) combn(v1, i, FUN = toString)))), simplify = FALSE))

数据

v1 <- c("PD", "MO", "K")