遞歸列表中的元素計數

Question

如何計算遞歸列表中的元素？ 這裏是數據，但它可能是更大的列表。

data <- list(list(list("a"), list("b"), list("c","d","e")), list("f")) 

> str(data) 
List of 2 
$ :List of 3 
    ..$ :List of 1 
    .. ..$ : chr "a" 
    ..$ :List of 1 
    .. ..$ : chr "b" 
    ..$ :List of 3 
    .. ..$ : chr "c" 
    .. ..$ : chr "d" 
    .. ..$ : chr "e" 
$ :List of 1 
    ..$ : chr "f" 

在輸出我想有％的使用率，其總計爲100％載體：

o <- c(1/2/3/1, 1/2/3/1, 1/2/3/3, 1/2/3/3, 1/2/3/3, 1/2/1) 
[1] 0.16666667 0.16666667 0.05555556 0.05555556 0.05555556 0.50000000 
sum(o) 
[1] 1 

所以我需要V1（只是代表分配= 100％）：

v1 <- rep(1, length(unlist(data))) 
v1 
[1] 1 1 1 1 1 1 

V2：

> v2 <- rep(length(data), length(unlist(data))) 
> v2 
[1] 2 2 2 2 2 2 

V3，

> v3 = c(3, 3, 3, 3, 3, 1) 

V4：

V4 = C（1，1，3,3，3，1）

等

在結果：

> v1/v2/v3/v4 
[1] 0.16666667 0.16666667 0.05555556 0.05555556 0.05555556 0.50000000 
sum(v1/v2/v3/v4) 
[1] 1 

所以問題是我如何使v3和v4等？

也許是有辦法讓（數據）每個孩子的計數長度像海峽的載體：

out <- c("2/3/1", "2/3/1", "2/3/3", "2/3/3", "2/3/3", "2/1") 

然後用這個載體，我可以做數學題：

> sapply(out, function(x) last(cumprod(1/c(1, as.numeric(unlist(strsplit(x, "/"))))))) 
    2/3/1  2/3/1  2/3/3  2/3/3  2/3/3  2/1 
0.16666667 0.16666667 0.05555556 0.05555556 0.05555556 0.50000000 

Answer 1

這適合於遞歸解決方案，可能類似於：

data <- list(list(list("a"), list("b"), list("c","d","e")), list("f")) 


f <- function(x, prop=1) 
{ 
    if(is.list(x)) lapply(x, f, prop=prop/length(x)) 
    else prop/length(x) 
} 

unlist(f(data)) 

#[1] 0.16666667 0.16666667 0.05555556 0.05555556 0.05555556 0.50000000