PROSAGA码农传奇-边缘数据治理-从R中的衣衫褴褛数据框创建边缘列表（用于网络分析）

从R中的衣衫褴褛数据框创建边缘列表（用于网络分析）

作者: 易米烊光
发布时间: 2024-04-09 02:01:58 (11天前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    试试这个：
  </p>
   <pre>
    <code>
      # read your data

dat <- strsplit(readLines(textConnection("(time1) entitya entityf entityz
(time2) entityg entityh
(time3) entityo entityp entityk entityL
(time4) entityM")), " ")

# remove (time)

dat <- lapply(dat, `[`, -1)

# filter

nodelist <- c("entitya", "entityf", "entityz", "entityg", "entityh",
              "entityo", "entityp", "entityk")

dat <- lapply(dat, intersect, nodelist)

# create an edge matrix

t(do.call(cbind, lapply(dat[sapply(dat, length) >= 2], combn, 2)))

</code>
  </pre>
  <P>
    最后一步可能需要消化很多，所以这是一个突破：
  </p>
  <UL>
    <LI>
       <code>
        sapply(dat, length)
      </code>
       计算列表元素的长度
    </LI>
    <LI>
       <code>
        dat[... >= 2]
      </code>
       仅保留列表元素至少包含两个项目
    </LI>
    <LI>
       <code>
        lapply(..., combn, 2)
      </code>
       创建所有组合：宽矩阵列表
    </LI>
    <LI>
       <code>
        do.call(cbind, ...)
      </code>
       将所有组合绑定到一个宽矩阵中
    </LI>
    <LI>
       <code>
        t(...)
      </code>
       转换成高大的矩阵
    </LI>
  </UL>
</DIV>