我有一个状态缩写的字符向量。
abbr <-c("AL","AZ", "AR", "CA", "CO", "CT", "DE", "DC", "FL", "GA", "ID", "IL",
"IN", "IA", "KS", "KY", "LA", "ME", "MD", "MA", "MI", "MN", "MS", "MO",
"MT", "NE", "NV", "NH", "NJ", "NM", "NY", "NC", "ND", "OH", "OK", "OR",
"PA", "RI", "SC", "SD", "TN", "TX", "UT", "VT", "VA", "WA", "WV", "WI", "WY")
我通过
使用自身命名列表names(abbr) <- abbr
我有另一个列表MF，其成员为3 x 44矩阵。 mf的名称向量也是abbr，因此mf $ AL，mf $ AZ等分别为3 x 44矩阵。
我还有另外3个乘44矩阵的popUS。我想通过将列表mf的每个成员乘以popUS来创建一个名为Expf的新列表。当我为阿拉巴马州输入以下代码时，
popUS * mf$AL
我得到正确的逐点3乘44矩阵。我尝试使用
使用lapply来执行所有这些产品Expf <- lapply(abbrList, function(ab) popUS*mf$ab)
我得到输出
$AL
integer(0)
$AR
integer(0)
等等。
如何更正lapply代码以创建列表Expf？