Question

我想从命名列表中取出2个元素，对它应用一个函数，然后将它放在一个矩阵中，其中行和列的名称分别是组合的第一个和第二个元素的名称。例如，我有这个命名列表：

input <- list(a="tom", b="dick", c="harry")

作为组合元素的功能，我会使用paste0矩阵的结果将是：

  a         b           c          
a NA    "tomdick"   "tomharry" 
b NA       NA       "dickharry"         
c NA       NA          NA

我已经尝试了combn，但后来我得到了：

> combn(input, 2, FUN=function(x) paste0(x[1], x[2]))
[1] "tomdick"   "tomharry"  "dickharry"

我该怎么做？

Answer 1

必须有更好的方法。但你可以这样做。

创建一个空数据框：

d <- data.frame(matrix(NA, nrow = length(input), ncol = length(input)))
colnames(d) <- rownames(d) <- names(input)
d
   a  b  c
a NA NA NA
b NA NA NA
c NA NA NA

for循环填写名称：

for(i in row.names(d)){
for(j in colnames(d)){
d[i, j] <- paste0(input[i], input[j])
}}

用NAs替换Matrix下部的名称

d[lower.tri(d, diag = T)] <- NA
d
     a       b         c
a <NA> tomdick  tomharry
b <NA>    <NA> dickharry
c <NA>    <NA>      <NA>

Answer 2

将@David Arenburg的评论与@ Jimbou的回答结合起来，

input <- list(a="tom", b="dick", c="harry")
result <- outer(input, input, paste0)
result[lower.tri(result,diag = T)] <- NA

名称结果存储您发布的矩阵。

将R中的命名列表中的2个元素组合在一起

2 个答案: