14

各行が一連の学校を表すデータフレームがあります

edu <- read.table(header=TRUE, text="Elem Mid High
e1 m1 h1
e2 m2 h2
e1 m2 h2
e3 m1 h1")

これをエッジリストに変換したい

  s1 s2
1 e1 m1
2 e2 m2
3 e1 m2
4 e3 m1
5 m1 h1
6 m2 h2
7 m2 h2
8 m1 h1

有向グラフの場合 (igraph パ​​ッケージ経由)。

これが私がそれを行う方法です：

e2m <- edu[,1:2]
m2h <- edu[,2:3]
colnames(e2m) <- c("s1", "s2")
colnames(m2h) <- c("s1", "s2")
schools <- rbind(e2m,m2e)

「学校」には必要なものが含まれていますが、4 番目の列 (「大学」など) を追加する場合は反復的で面倒になります。これを行うためのベクトル化された方法は何ですか?

4

4 に答える 4

6

OP のコードを適用に直接変換します。これはベクトル化されていません:

do.call(rbind, lapply(seq(ncol(edu)-1), FUN=function(x){
  r <- edu[,x:(x+1)]
  colnames(r) <- c('s1', 's2')
  r
}

))
于 2013-02-12T02:49:26.870 に答える
3

@Tylerのメソッドの作業:

# assuming a new column added
edu$Uni <- as.factor(c("u1", "u2", "u1", "u1"))

.

rows  <- nrow(edu)
total <- prod(dim(edu))  # ie: nrow(edu) * ncol(edu)  

X <- as.character(unlist(edu))
data.frame(s1=X[1:(total-rows)],  s2=X[(rows+1):total])

結果：

   s1 s2
1  e1 m1
2  e2 m2
3  e1 m2
4  e3 m1
5  m1 h1
6  m2 h2
7  m2 h2
8  m1 h1
9  h1 u1  <~~~ Added "Uni" column
10 h2 u2  <~~~ Added "Uni" column
11 h2 u1  <~~~ Added "Uni" column
12 h1 u1  <~~~ Added "Uni" column
于 2013-02-12T05:57:59.627 に答える
2

igraph関数によって受け入れられる、行列出力を使用する代替手段。

t(
  matrix(
   apply(edu,1,function(x) x[c(1,rep(2:(length(x)-1),each=2),length(x))]),
   nrow=2
        )
 )

結果：

     [,1] [,2]
[1,] "e1" "m1"
[2,] "m1" "h1"
[3,] "e2" "m2"
[4,] "m2" "h2"
[5,] "e1" "m2"
[6,] "m2" "h2"
[7,] "e3" "m1"
[8,] "m1" "h1"

そしてグラフに変換します：

> graph.edgelist(result)
IGRAPH DN-- 7 8 -- 
+ attr: name (v/c)
于 2013-02-12T04:14:43.027 に答える