Something như expand.grid trên một danh sách liệt kê

Question

tôi có ba tài liệu văn bản được lưu trữ như một danh sách liệt kê được gọi là "dlist":

dlist <- structure(list(name = c("a", "b", "c"), text = list(c("the", "quick", "brown"), c("fox", "jumps", "over", "the"), c("lazy", "dog"))), .Names = c("name", "text")) 

Trong đầu tôi, tôi thấy nó hữu ích để hình dung dlist như thế này:

name text 
1 a  c("the", "quick", "brown") 
2 b  c("fox", "jumps", "over", "the") 
3 c  c("lazy", "dog") 

Làm cách nào để thao tác như sau? Ý tưởng là để vẽ đồ thị nó, vì vậy một cái gì đó có thể được tan chảy cho ggplot2 sẽ là tốt.

name text 
1 a the 
2 a quick 
3 a brown 
4 b fox 
5 b jumps 
6 b over 
7 b the 
8 c lazy 
9 c dog 

Đó là một hàng trên mỗi từ, cung cấp cả từ và tài liệu gốc của từ đó.

Tôi đã thử:

> expand.grid(dlist) 
    name     text 
1 a  the, quick, brown 
2 b  the, quick, brown 
3 c  the, quick, brown 
4 a fox, jumps, over, the 
5 b fox, jumps, over, the 
6 c fox, jumps, over, the 
7 a    lazy, dog 
8 b    lazy, dog 
9 c    lazy, dog 

> sapply(seq(1,3), function(x) (expand.grid(dlist$name[[x]], dlist$text[[x]]))) 
    [,1]  [,2]  [,3]  
Var1 factor,3 factor,4 factor,2 
Var2 factor,3 factor,4 factor,2 

unlist(dlist) 
    name1 name2 name3 text1 text2 text3 text4 
    "a"  "b"  "c" "the" "quick" "brown" "fox" 
    text5 text6 text7 text8 text9 
"jumps" "over" "the" "lazy" "dog" 

> sapply(seq(1,3), function(x) (cbind(dlist$name[[x]], dlist$text[[x]]))) 
[[1]] 
    [,1] [,2] 
[1,] "a" "the" 
[2,] "a" "quick" 
[3,] "a" "brown" 

[[2]] 
    [,1] [,2] 
[1,] "b" "fox" 
[2,] "b" "jumps" 
[3,] "b" "over" 
[4,] "b" "the" 

[[3]] 
    [,1] [,2] 
[1,] "c" "lazy" 
[2,] "c" "dog" 

Đó là công bằng để nói rằng tôi đang befuddled bởi khác nhau áp dụng và plyr chức năng và thực sự không biết bắt đầu từ đâu. Tôi chưa bao giờ thấy một kết quả như trong nỗ lực "dễ thương" ở trên, và không hiểu nó.

Answer 1

Nếu bạn chuyển đổi dlist thành danh sách được đặt tên (cấu trúc phù hợp hơn theo ý kiến ​​của tôi), bạn có thể sử dụng stack() để lấy dữ liệu hai cột.bạn muốn.

(The rev() và setNames() cuộc gọi trong dòng thứ hai chỉ là một trong nhiều cách để điều chỉnh thứ tự cột và tên để phù hợp với đầu ra mong muốn thể hiện trong câu hỏi của bạn.)

x <- setNames(dlist$text, dlist$name) 
setNames(rev(stack(x)), c("name", "text")) 
# name text 
# 1 a the 
# 2 a quick 
# 3 a brown 
# 4 b fox 
# 5 b jumps 
# 6 b over 
# 7 b the 
# 8 c lazy 
# 9 c dog 

Answer 2

câu trả lời của Josh là ngọt ngào hơn nhiều nhưng tôi nghĩ tôi sẽ ném chiếc mũ vào chiếc nhẫn.

dlist <- structure(list(name = c("a", "b", "c"), 
    text = list(c("the", "quick", "brown"), 
    c("fox", "jumps", "over", "the"), c("lazy", "dog"))), 
    .Names = c("name", "text")) 

lens <- sapply(unlist(dlist[-1], recursive = FALSE), length) 

data.frame(name = rep(dlist[[1]], lens), text = unlist(dlist[-1]), row.names = NULL) 

## name text 
## 1 a the 
## 2 a quick 
## 3 a brown 
## 4 b fox 
## 5 b jumps 
## 6 b over 
## 7 b the 
## 8 c lazy 
## 9 c dog 

Điều đó được cho biết danh sách danh sách là một phương pháp lưu trữ khó xử. Một danh sách các vectơ (đặc biệt là danh sách các vectơ) sẽ dễ giải quyết hơn.

Answer 3

Một giải pháp, có thể khái quát hơn:

do.call(rbind, do.call(mapply, c(dlist, FUN = data.frame, SIMPLIFY = FALSE))) 

#  name text 
# a.1 a the 
# a.2 a quick 
# a.3 a brown 
# b.1 b fox 
# b.2 b jumps 
# b.3 b over 
# b.4 b the 
# c.1 c lazy 
# c.2 c dog