创建具有多个列的Edgelist，n/as在R中

Question

正在研究R。

我

看起来有点像这样：

      V1 V2 V3 V4
   1   1  2  3  NA
   2   2  3  NA NA
   3   2  4  1  NA
   4   1 NA  NA NA

但是更大。我很难从这些数据中创建Edgelist并尝试过：

myPairs <- apply(t(df), 2, function(x) t(combn(x[!is.na(x)], 2)))

但是继续遇到此错误：

h（simpleerror（msg，call））中的错误：评估参数的错误 'x'在选择功能't'的方法时：n＆lt; m

输出应该看起来像这样：

      col1   col2
   1  1      2
   2  1      3
   3  2      3
   4  2      3
   5  2      4
   6  2      1
   7  1      4

任何帮助都将不胜感激！

Answer 1

这是一种方法。

确保您的data.frame是数字：

df <- sapply(df, as.numeric)

您可以在完成上使用应用 combn，但首先使用na.omit 缺少值。您还可以检查length，因此，如果您一排仅具有一个值，则会跳过它。

do.call(rbind, apply(df, 1, function(x) {
  y <- na.omit(x)
  if (length(y) > 1)
    t(combn(y, 2))
}))

输出

     [,1] [,2]
[1,]    1    2
[2,]    1    3
[3,]    2    3
[4,]    2    3
[5,]    2    4
[6,]    2    1
[7,]    4    1