为paste0（）添加一个额外的字母

Question

我想知道是否有办法在下面的p命令中添加额外的paste0()个字母，以便代替（当前）打印出来："p1-2" "p1-3" "p2-3" [通知第二个元素中缺少 p，我的代码打印出来："p1-p2"，"p1-p3"，"p2-p3"？

p <- list()
for(i in 1:3){
    p[[i]] <- rbeta(20, 2, 6)
}
paste0("p", combn(seq_along(p), 2, FUN = paste, collapse = "-")) ## HERE ##

Answer 1

将p粘贴到combn的输入上，而不是输出：

combn(paste0("p", seq_along(p)), 2, FUN = paste, collapse = "-")
# [1] "p1-p2" "p1-p3" "p2-p3"