我正在尝试创建一个模型，该模型生成一个由四个字符{a，b，c，d}组成的256个唯一组合的列表

Question

我的问题是构造一个for循环，它将生成256个组合，然后收集这些组合。这是我到目前为止编写的代码。

n <- 10000
letters <- sample(c(1,2,3,4),n, replace = TRUE)
letters
uniquelist <- numeric(n)
mylist <- vector(mode = "list", length = (n-3))
mylist[1] <- 0

for(i in 1:(n-3))
{
  mylist[[i]] <- c(letters[i], letters[i+1], letters[i+2], letters[i+3])
  (n-3) - sum(duplicated(mylist))
  unique(mylist)
  
  for(j in 256:(n-3))
  {
    if (length(unique(mylist[1:j])) == 256)
    {
      break
    }
  }

  uniquelist[i] <- mylist[256]
}

Answer 1

这将创建一个包含所有组合的4列256行的数据帧

x <- expand.grid(rep(list(c('a', 'b', 'c', 'd')), 4))
do.call(paste0, x)