与for循环-R配对的字符串

Question

关于通过for循环配对strs有一个非常基本的问题。因此，我正在做的是创建一个返回所有拖曳字符组合的函数。我的总想法起作用了，但是很难把收益作为载体。这是我的代码：

paste_chars <- function(char_vec) {
    res = c()
            for ( i in 1:length(char_vec)) {
                    for ( j in 1:length(char_vec)){
                            append(res, paste(char_vec[i], char_vec[j], sep = ''))
                            j + 1
                    }
                    i + 1
            }
    return(res)
    }

所以我想要的是char_vec（c（'a'，'b'，'c'））return“ aa”“ ab”“ ac”“ ba”“ bb”“ bc”“ ca”“ cb” “ cc”作为向量。我不知道为什么这个函数总是返回NULL，所以循环内的append函数不起作用。谢谢！

Answer 1

更好的解决方案是使用expand.grid而不是for循环：

apply(expand.grid(x=letters,y=letters)[,c(2,1)],1,function(x)paste0(x,collapse=""))