如何构造列序列的全排列 n

#要求n<7
library(dplyr)
n <- 5
da <- expand.grid(1:n,1:n,1:n,1:n,1:n)#温馨提示 函数里面向量个数和n一致
names(da) <- LETTERS[1:n]
f <- function(x)
{
  if(length(x) == length(unique(x)))
  {
    temp1 <- TRUE
  }
  else
  {
    temp1 <- FALSE
  }
  return(temp1)
}
da <- da[apply(da, 1, f),]
da <- as.data.frame(da)
da1 <- as.matrix(arrange(da,A,B,C))