递归列表中的元素计数

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