R 中的排列和分组

Question

假设在 R 中我们有三列。第一个是带有替换的 1:4 的随机样本。第二个是 1:4 根据需要重复。第三个只是一个索引。结果应输出顺序无关紧要的数字的粘贴组合并给出计数。请注意，sample 中没有填写 n，但应该可以对所有 n 起作用。示例如下：

c1 <- sample(1:4, n, replace = TRUE)
c2 <- c(4:1)
c3 <- 1

cbind(c1, c2, c3)

我们希望我们的结果看起来像这样：

正在显示x[0:9] != 0

感谢您的帮助！祝你好运！

Answer 1

我相信我们已经解决了自己的问题。最初的问题处理的是起点和终点，而不是数值。所以，我已经发布了那个答案——它很容易切换到数字。希望这对以后的人有帮助。

library(dplyr)
library(sqldf)
x<-data.frame(orig=as.character(sample(LETTERS[1:10], 100, replace=TRUE)), dest=as.character(sample(LETTERS[1:10], 100, replace=TRUE)))
x$orig<-as.character(x$orig)
x$dest<-as.character(x$dest)

x1<-sort(unique(c(x[,1], x[,2])))

x_ind<-data.frame(loc=x1, ind=1:length(x1))

xx<-sqldf("select a.*, b.ind as orig_ind from x as a left join x_ind as b on a.orig=b.loc")
xxx<-sqldf("select a.*, b.ind as dest_ind from xx as a left join x_ind as b on a.dest=b.loc")

comb<-function(orig, dest, orig_ind, dest_ind)
  {
  if (orig_ind<=dest_ind)
  {
    out<-paste(orig, dest, sep="-")
  } else 
  {
    out<-paste(dest, orig, sep="-")
  }
  return(out)
}

orig_dest<-apply(xxx, 1, function(x) comb(x[1], x[2], x[3], x[4]))
xxxx<-data.frame(xxx, orig_dest)

R 中的排列和分组

Permutations and grouping in R

combinations

r

permutation