如何在R中嵌套列表中使用元素的並集

Question

我有一個嵌套列表，如lst（所有元素都是int）。我不知道提前lst的長度;然而，我知道的lst每個元素是長的名單說k

length(lst[[i]]) # this equals k and is known in advance, 
       # this is true for i = 1 ... length(lst) 

我怎麼拿第一元素，第二個元素，...，的lst

所有元素的第k個元素的 union

具體而言，如果lst長度n，我想（不屬於R代碼）：

# I know that union can only be taken for 2 elements, 
# following is for illustration purposes 
listUnion1 <- union(lst[[1, 1]], lst[[2, 1]], ..., lst[[n, 1]]) 
listUnion2 <- union(lst[[1, 2]], lst[[2, 2]], ..., lst[[n, 2]]) 
. 
. 
. 
listUnionk <- union(lst[[1, k]], lst[[2, k]], ..., lst[[n, k]]) 

任何幫助或指針不勝感激。

這裏是可以使用的數據集，N = 3和K = 2

list(structure(list(a = 1:5, b = 6:11), .Names = c("a", "b")), 
    structure(list(a = 6:11, b = 1:5), .Names = c("a", "b")), 
    structure(list(a = 12, b = 12), .Names = c("a", "b"))) 

Answer 1

這裏是一個通用的解決方案，在精神上類似@Ramnath，但避免使用union()這是一個二元函數。關鍵是要注意的是union()被實現爲：

unique(c(as.vector(x), as.vector(y))) 

和內部unique()位可以通過unlisting每個列表的n個分量來實現。然後

完整的解決方案是：

unionFun <- function(n, obj) { 
    unique(unlist(lapply(obj, `[[`, n))) 
} 
lapply(seq_along(lst[[1]]), FUN = unionFun, obj = lst) 

這給：

[[1]] 
[1] 1 2 3 4 5 6 7 8 9 10 11 12 

[[2]] 
[1] 6 7 8 9 10 11 1 2 3 4 5 12 

你顯示數據

。

一對夫婦的這個有用的特點是：

• 我們使用`[[`在unionFun於子集obj。這與@ Ramnath的答案中的function(x) x$a類似。但是，我們不需要匿名函數（我們使用`[[`代替）。相當於@ Ramnath的回答是：lapply(lst, `[[`, 1)
• 概括上面，我們在更換1以上的unionFun()n，並允許通過我們的列表作爲參數obj。

現在，我們有一個功能，將提供一個給定的列表的n個元素的結合，我們可以lapply()在指數k，運用我們unionFun()到lst每個子元素，使用的事實，所有k的長度爲lst[[1]]與length(lst[[k]])相同。

如果它有助於在返回的對象n個元素的名稱，我們可以這樣做：

> unions <- lapply(seq_along(lst[[1]]), FUN = unionFun, obj = lst) 
> names(unions) <- names(lst[[1]]) 
> unions 
$a 
[1] 1 2 3 4 5 6 7 8 9 10 11 12 

$b 
[1] 6 7 8 9 10 11 1 2 3 4 5 12 

Answer 2

這裏是一個解決方案

# generate dummy data 
x1 = sample(letters[1:5], 20, replace = T) 
x2 = sample(letters[1:5], 20, replace = T) 
df = data.frame(x1, x2, stringsAsFactors = F) 

# find unique elements in each column 
union_df = apply(df, 2, unique) 

讓我知道這是否正常工作

編輯：以下是使用您提供的數據的清單解決方案

mylist = list(structure(list(a = 1:5, b = 6:11), .Names = c("a", "b")), 
       structure(list(a = 6:11, b = 1:5), .Names = c("a", "b")), 
       structure(list(a = 12, b = 12), .Names = c("a", "b"))) 
list_a = lapply(mylist, function(x) x$a) 
list_b = lapply(mylist, function(x) x$b) 

union_a = Reduce(union, list_a) 
union_b = Reduce(union, list_b) 

如果您的列表中有兩個以上的元素，我們可以推廣此代碼。

Answer 3

你的數據

df <- list(structure(list(a = 1:5, b = 6:11), .Names = c("a", "b")), 
      structure(list(a = 6:11, b = 1:5), .Names = c("a", "b")), 
      structure(list(a = 12, b = 12), .Names = c("a", "b"))) 

這使您可以嵌套列表的獨特價值：

library(plyr) 
df.l <- llply(df, function(x) unlist(unique(x))) 

R> df.l 
[[1]] 
[1] 1 2 3 4 5 6 7 8 9 10 11 

[[2]] 
[1] 6 7 8 9 10 11 1 2 3 4 5 

[[3]] 
[1] 12 

編輯

感謝Ramnath我改變了代碼一點，希望這答案符合你的問題的需要。爲了說明，我保留以前的答案。稍有變化的數據現在有一個額外的列表。

df <- list(structure(list(a = 1:5, b = 6:11), .Names = c("a", "b")), 
      structure(list(a = 6:11, b = 1:5), .Names = c("a", "b")), 
      structure(list(a = 12, b = 12, c = 10:14), .Names = c("a", "b", "c"))) 


f.x <- function(x.list) { 
    x.names <- names(x.list) 
    i <- combn(x.names, 2) 
    l <- apply(i, 2, function(y) x.list[y]) 
    llply(l, unlist) 
} 

現在您可以將該函數應用於您的數據。

all.l <- llply(df, f.x) 
llply(all.l, function(x) llply(x, unique)) 

R> [[1]] 
[[1]][[1]] 
[1] 1 2 3 4 5 6 7 8 9 10 11 


[[2]] 
[[2]][[1]] 
[1] 6 7 8 9 10 11 1 2 3 4 5 


[[3]] 
[[3]][[1]] 
[1] 12 

[[3]][[2]] 
[1] 12 10 11 13 14 

[[3]][[3]] 
[1] 12 10 11 13 14 

但是，嵌套結構不是非常用戶友好。這可能會改變一點...

Answer 4

這裏的另一種方式：使用do.call/rbind由「名」列表排隊到數據 - 幀，然後applyunique/do.call到這個數據幀的每一列。 （我稍微修改了你的數據，所以'a'和'b'聯盟的長度不同，以確保它能正常工作）。

lst <- list(structure(list(a = 1:5, b = 6:11), .Names = c("a", "b")), 
    structure(list(a = 6:10, b = 1:5), .Names = c("a", "b")), 
    structure(list(a = 12, b = 12), .Names = c("a", "b"))) 

> apply(do.call(rbind, lst),2, function(x) unique(do.call(c, x))) 
$a 
[1] 1 2 3 4 5 6 7 8 9 10 12 

$b 
[1] 6 7 8 9 10 11 1 2 3 4 5 12 

Answer 5

根據該文件「不公開」是一個遞歸函數，因此，無論提供你可以通過它們來獲得不公開所有元素的列表的嵌套級別。您可以按如下方式獲得子列表的聯合。

lst <- list(structure(list(a = 1:5, b = 6:11), .Names = c("a", "b")), 
structure(list(a = 6:11, b = 1:5), .Names = c("a", "b")), 
structure(list(a = 12, b = 12), .Names = c("a", "b"))) 

lapply(lst, function(sublst) unique(unlist(sublst))) 

[[1]] 
[1] 1 2 3 4 5 6 7 8 9 10 11 

[[2]] 
[1] 6 7 8 9 10 11 1 2 3 4 5 

[[3]] 
[1] 12