在矩阵列表上递归设置 dimnames

Question

在矩阵列表中，我只想设置 colnames 并将 rownames 保留为 NULL。矩阵都是不同维度的。与此示例不同，名称特定于每个矩阵。

provideDimnames 让我大致了解，但我无法告诉它忽略 NULL 行名称，只设置列名称。这是我的尝试。

> L <- list(matrix(1:6, 2), matrix(1:20, 5))
> dimnm <- list(list(NULL, letters[1:3]), list(NULL, letters[1:4]))
> lapply(L, provideDimnames, base = dimnm)
# Error in make.unique(base[[ii]][1L + (ss%%M[ii])], sep = sep) : 
#     'names' must be a character vector
> lapply(L, provideDimnames, base = list(dimnm))
# Error in make.unique(base[[ii]][1L + (ss%%M[ii])], sep = sep) : 
#     'names' must be a character vector
> lapply(L, provideDimnames, base = list(letters))
# [[1]]
#   a b c
# a 1 3 5
# b 2 4 6
# 
# [[2]]
#   a  b  c  d
# a 1  6 11 16
# b 2  7 12 17
# c 3  8 13 18
# d 4  9 14 19
# e 5 10 15 20

几乎，但我想要 [n,] 作为行名称。期望的结果是:

> dimnames(L[[1]]) <- list(NULL, letters[1:3])
> dimnames(L[[2]]) <- list(NULL, letters[1:4])
> L
# [[1]]
#      a b c
# [1,] 1 3 5
# [2,] 2 4 6
# 
# [[2]]
#      a  b  c  d
# [1,] 1  6 11 16
# [2,] 2  7 12 17
# [3,] 3  8 13 18
# [4,] 4  9 14 19
# [5,] 5 10 15 20

> lapply(L, provideDimnames, base = list(NULL, letters))
# Error in make.unique(base[[ii]][1L + (ss%%M[ii])], sep = sep) : 
#     'names' must be a character vector
> lapply(L, `colnames<-`, , letters)
# Error in FUN(X[[1L]], ...) : 
#   unused argument (c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k",
#   "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"))

有没有办法用 provideDimnames() 做到这一点？ setNames() 也不接受 dim-names 的列表。

Answer 1

这样的事情怎么样？

L <- list(matrix(1:6, 2), matrix(1:20, 5))
nms <- list(letters[1:3], letters[23:26])

mapply(function(X,Y) {colnames(X) <-Y; X}, L, nms)
[[1]]
     a b c
[1,] 1 3 5
[2,] 2 4 6

[[2]]
     w  x  y  z
[1,] 1  6 11 16
[2,] 2  7 12 17
[3,] 3  8 13 18
[4,] 4  9 14 19
[5,] 5 10 15 20