是否有比使用 apply 更紧凑的方法来打印矩阵中的因子水平？

Question

我有一个矩阵，它将是一个因子矩阵如果 R 支持它们。为了便于阅读，我想用因子名称而不是整数打印矩阵。使用索引会丢失矩阵结构。有没有比我下面的解决方法更简洁的解决方法？

care_types = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 5L, 5L, 5L, 
6L, 5L, 4L, 1L, 6L, 4L, 4L, 1L, 1L, 5L, 1L, 2L, 1L, 1L, 6L, 5L, 
1L, 2L, 1L, 5L, 5L, 2L, 1L, 5L, 2L, 3L, 1L, 3L, 6L, 1L, 5L, 6L, 
5L, 5L, 1L, 5L, 6L, 4L, 5L, 3L, 1L, 2L, 2L, 1L, 3L, 5L, 5L), dim = c(10L, 
6L))
care_type_names = c('M', 'F', 'O', 'I', 'H', 'C')


# This loses the dimensions
care_type_names[care_types]

# This works but is clunky
apply(care_types, 1:2, function(v) {return(care_type_names[[v]])})

# This doesn't work and I don't follow why
apply(care_types, 1:2, ~care_type_names[[.x]])

Answer 1

您可以使用

\(x)

编写匿名函数，如下所示

apply(care_types, 1:2, \(x) care_type_names[[x]])

返回

  [,1] [,2] [,3] [,4] [,5] [,6]

[1，]“M”“H”“M”“F”“O”“I” [2，]“M”“H”“M”“M”“C”“H” [3，]“M”“H”“H”“H”“M”“O” [4，]“M”“C”“M”“H”“H”“M” [5，]“M”“H”“F”“F”“C”“F” [6，]“M”“I”“M”“M”“H”“F” [7、]“M”“M”“M”“H”“H”“M” [8，]“M”“C”“C”“F”“M”“O” [9，]“M”“I”“H”“O”“H”“H” [10、]“M”“I”“M”“M”“C”“H”