我认为这将是微不足道的......
这是我列表中的两个第一部分：
foo <- structure(list(vv = structure(list(`0` = c("C RR", "G RR", "nil",
"C AA", "G AA", "nil", "C RV", "G RV", "nil", "C VB", "G VB",
"nil", "C RV", "C AA", "G AA", "nil", "G AA", "nil", "C VB",
"G VB", "nil", "C RJ"), `1` = c("G RJ", "nil", "G RJ", "nil",
"G RJ", "C RV", "G RV", "nil", "C AJ", "G AJ", "nil", "C BB",
"G BB", "C BB", "G BB", "nil", "C BV", "G BV", "nil", "C JA",
"G JA", "nil", "C AJ", "G AJ", "C AJ", "G AJ", "nil", "C RJ",
"G RJ", "nil", "C RJ", "G RJ", "nil"), `2` = c("nil", "C JA",
"G JA", "C JR", "G JR", "nil", "C JR", "G JR", "nil", "C BB",
"G BB", "nil", "C VV", "nil", "C AJ", "G AJ", "nil", "C AJ",
"G AJ", "nil", "C AJ", "nil", "C BV", "G BV", "nil", "C BV",
"nil", "C BV", "G BV", "nil"), `3` = c("nil", "C RJ", "G RJ",
"C RJ", "G RJ", "nil", "C JA", "G JA", "nil", "C VR", "G VR",
"nil", "C BV", "G BV", "nil", "C BV", "G BV", "nil", "C AA",
"G AA", "C AA", "G AA", "nil", "C AA", "G AA", "nil", "C AJ",
"G AJ", "nil", "C AJ", "G AJ", "nil", "C JA", "G JA", "nil",
"C JA", "G JA", "nil", "C BV", "nil"), `4` = c("nil", "C VB",
"G VB", "nil", "C VB", "G VB", "nil", "C BV", "G BV", "nil",
"C RJ", "G RJ", "nil", "C RJ", "G RJ", "nil", "C RR", "G RR",
"nil", "C RV", "nil", "C JA", "G JA", "nil", "C AA", "C JA",
"nil", "C RV", "G RV", "nil", "C RV", "nil", "C VV", "C BB",
"G BB", "nil", "C RV", "G RV", "nil", "C VB", "nil", "C JA",
"G JA", "nil", "C BB", "nil", "C RR", "nil", "C RR", "nil", "C JA",
"nil", "C RR", "nil", "C RR", "nil", "C JA", "nil"), `5` = c("nil",
"C BB", "G BB", "nil", "C RR", "nil", "C VB", "nil", "C AA",
"nil", "C VB", "nil", "C VB", "nil", "C VB", "nil", "C VB", "nil",
"C VB", "nil", "C JA", "nil", "C VB", "G VB", "nil", "C AJ",
"nil", "C VB", "C BB", "nil", "C AJ", "G AJ", "nil", "C RR",
"nil", "C AJ", "nil", "C AJ", "nil", "C JA", "G JA", "nil"),
`6` = c("nil", "C BB", "nil", "C AA", "nil", "C AA", "nil",
"C AA", "nil", "C RR", "nil", "C VB", "G VB", "C RV", "G RV",
"nil", "C VB", "G VB", "nil", "C BB", "nil", "C BB", "nil",
"C BV", "nil", "C RV", "nil", "C BV", "nil", "C BV", "nil",
"C JA", "nil")), .Names = c("0", "1", "2", "3", "4", "5",
"6")), rv = structure(list(`0` = c("nil", "C VB", "G VB", "nil",
"G VB", "nil", "C RR", "G RR", "nil", "C RV", "C AA", "G AA",
"nil", "G RR", "C RR", "G RR", "C RR", "G RR"), `1` = c("nil",
"C RV", "G RV", "C RV", "G RV", "nil", "G JR", "nil", "C AJ",
"G AJ", "C AJ", "G AJ", "C AJ", "G AJ", "nil", "C AJ", "nil",
"C JA", "G JA", "C RV", "G RV", "C RV", "G RV", "C RV", "G RV",
"nil"), `2` = c("nil", "C JR", "G JR", "nil", "C BB", "G BB",
"nil", "C BV", "G BV", "nil", "C VV", "G VV", "C VV", "G VV",
"nil"), `3` = c("nil", "C AA", "G AA", "C AA", "G AA", "nil",
"C JA", "nil", "C BV", "G BV", "C BV", "G BV", "nil", "C BV",
"G BV", "nil", "C RJ", "G RJ"), `4` = c("nil", "C VV", "G VV",
"nil", "C VR", "G VR", "nil", "C RJ", "G RJ", "C RJ", "G RJ",
"nil", "C VB", "G VB", "nil", "C JA", "G JA", "C JA", "G JA",
"nil", "C VB", "G VB", "C VB", "G VB"), `5` = c("nil", "C RR",
"G RR", "nil", "C BB", "G BB", "nil", "G BB", "nil", "C JA",
"G JA", "nil"), `6` = c("nil", "C BV", "G BV", "nil", "G BV",
"nil", "C RJ", "nil", "C BB", "nil", "C BB", "nil", "C AJ", "nil",
"C BB", "G BB", "nil", "C RV", "nil")), .Names = c("0", "1",
"2", "3", "4", "5", "6"))), .Names = c("vv", "rv"), class = "data.frame", row.names = c(NA,
-7L))
我可以使用特定组件：
> mapply(function(x) sum(substr(x,1,1)=="C"),foo[[1]])
0 1 2 3 4 5 6
8 10 11 14 24 19 15
或
> mapply(function(x) sum(substr(x,1,1)=="C"),foo[[2]])
0 1 2 3 4 5 6
6 10 5 7 9 3 7
这是预期的输出。但是如何将此功能应用于列表的每个组件？我似乎无法找到解决方案。我不明白为什么似乎没有办法立即对每个组件进行填充。也许我的名单结构不同？这个列表看起来很奇怪，但其中的信息是正确的。
理想情况下，预期输出将是一个矩阵，具有组件的名称，如：
structure(c(8L, 10L, 11L, 14L, 24L, 19L, 15L, 6L, 10L, 5L, 7L,
9L, 3L, 7L), .Dim = c(7L, 2L), .Dimnames = list(c("0", "1", "2",
"3", "4", "5", "6"), c("vv", "rv")))
答案 0 :(得分：2)
你快到了。
FUN <- function(x) sum(substr(x,1,1)=="C")
sapply(foo,function(x) mapply(FUN,x))
vv rv
0 8 6
1 10 10
2 11 5
3 14 7
4 24 9
5 19 3
6 15 7
原则上我认为sapply(foo,mapply,FUN=FUN)应该有效，但事实并非如此（只是在评估参数时有点过于聪明）。