Tạo danh sách kề từ một data.frame

Question

Tôi có một data.frame với 2 cột: Nút A, Nút B. Mỗi mục nhập trong khung ngụ ý một cạnh trong biểu đồ giữa nút A và B.

Có phải là một lớp lót đẹp để chuyển đổi data.frame này thành danh sách kề. Bất kỳ gợi ý nào?

Answer 1

Nhanh chóng và bẩn ...

> edges <- data.frame(nodea=c(1,2,4,2,1), nodeb=c(1,2,3,4,5)) 

> adjlist <- by(edges, edges$nodea, function(x) x$nodeb) 

> for (i in as.character(unique(edges$nodea))) { 
+ cat(i, ' -> ', adjlist[[i]], '\n') 
+ } 

1 -> 1 5 
2 -> 2 4 
4 -> 3 

> adjlist 
edges$nodea: 1 
[1] 1 5 
------------------------------------------------------------ 
edges$nodea: 2 
[1] 2 4 
------------------------------------------------------------ 
edges$nodea: 4 
[1] 3 

Answer 2

bạn thậm chí sẽ thể hiện danh sách kề trong R như thế nào? nó cần các danh sách có kích thước thay đổi cho tập hợp các nút lân cận; do đó, bạn phải sử dụng một danh sách(); nhưng sau đó nó có gì tốt trong R?

tôi có thể nghĩ ra các thủ thuật què với các hàm giống như ngọc nhưng chúng thực hiện quét tuyến tính cho mỗi nút. nhưng chơi xung quanh trong 1 phút, đây là: danh sách các danh sách ghép nối, trong đó mục thứ hai của mỗi cặp là danh sách kề. đầu ra là điên hơn cấu trúc thực sự là.

> edgelist=data.frame(A=c(1,1,2,2,2),B=c(1,2,2,3,4)) 
> library(plyr) 
> llply(1:max(edgelist), function(a) list(node=a, adjacents=as.list(edgelist$B[edgelist$A==a]))) 
[[1]] 
[[1]]$node 
[1] 1 

[[1]]$adjacents 
[[1]]$adjacents[[1]] 
[1] 1 

[[1]]$adjacents[[2]] 
[1] 2 



[[2]] 
[[2]]$node 
[1] 2 

[[2]]$adjacents 
[[2]]$adjacents[[1]] 
[1] 2 

[[2]]$adjacents[[2]] 
[1] 3 

[[2]]$adjacents[[3]] 
[1] 4 



[[3]] 
[[3]]$node 
[1] 3 

[[3]]$adjacents 
list() 


[[4]] 
[[4]]$node 
[1] 4 

[[4]]$adjacents 
list() 

Answer 3

> edges <- data.frame(nodea=c(1,2,4,2,1), nodeb=c(1,2,3,4,5)) 

> attach(edges) 

> tapply(nodeb,nodea,unique) 

$`1` 
[1] 1 5 

$`2` 
[1] 2 4 

$`4` 
[1] 3 

Answer 4

Vì bạn gắn thẻ igraph này, làm thế nào về việc sử dụng được xây dựng trong chức năng?

> g <- graph.data.frame(edges) 
> adjlist <- get.adjedgelist(g) 

Chỉ báo trước là các đỉnh không được lập chỉ mục, sẽ thay đổi với igraph 0.6.