在R中如何实现列表元素之间用逗号分隔

直接在combn的调用中加入自定义处理函数，完成单引号包裹和逗号拼接逻辑即可，修改后代码如下：

combos <- lapply(2:4, function(x) combn(
  c("item1","item2","item3","item4"), 
  x, 
  function(vec) paste0("'", vec, "'", collapse = ","), 
  simplify = FALSE
))
combos <- unlist(combos, recursive = FALSE)

逻辑说明 #

• paste0("'", vec, "'")给每个item元素前后添加单引号
• collapse = ","参数将同个组合内的多个元素用逗号拼接为单个字符串

如果需要得到向量类型的结果而非列表，最后追加一行combos <- unlist(combos)即可。

内容的提问来源于stack exchange，提问作者Jesse