3

私はこのようなリストを持っています

list <- structure(list(`1` = structure(c(274L, 173L), .Dim = 2L, .Dimnames = structure(list(
    c("2004", "2005")), .Names = ""), class = "table"), `2` = structure(73L, .Dim = 1L, .Dimnames = structure(list(
    "2005"), .Names = ""), class = "table"), `3` = structure(c(334L, 
365L, 366L, 365L, 365L, 365L, 366L, 365L, 287L), .Dim = 9L, .Dimnames = structure(list(
    c("1990", "1991", "1992", "1993", "1994", "1995", "1996", 
    "1997", "1998")), .Names = ""), class = "table"), `4` = structure(139L, .Dim = 1L, .Dimnames = structure(list(
    "2001"), .Names = ""), class = "table"), `5` = structure(71L, .Dim = 1L, .Dimnames = structure(list(
    "2009"), .Names = ""), class = "table"), `6` = structure(77L, .Dim = 1L, .Dimnames = structure(list(
    "1997"), .Names = ""), class = "table")), .Names = c("1", 
"2", "3", "4", "5", "6"))

このリストの最初のレベルは増加する数です。2番目のレベルには、列名として年を含むテーブルがあります。

列名が2005である第2レベルのすべての要素の合計を作成したいのですが、これを行うにはどうすればよいですか？

4

2 に答える 2

3

sapplyとの組み合わせで使用できます[。

> sum(sapply(list, `[`, "2005"), na.rm=TRUE)
[1] 246
于 2012-03-02T15:12:21.610 に答える
1

これはトリックを行います

get2005 <- function(x){
  x[names(x) %in% 2005]
}

sum(unlist(lapply(list, get2005)))
于 2012-03-02T15:15:38.650 に答える