R中带有不同标签的数组

Question

我有一个（简化的）数组，如下所示：

d<-array(c(1:64), dim=c(4,4,4)) 
dimnames(d)=list( c("One", "Two", "Three","Four"),
                  c("Initial", "NUMBER", "FU1", "FU2"),
                  c("Alpha", "Beta", "Gamma", "Delta"))

如何获取标签＆＃39; NUMBER＆＃39;成为以下标签之一＆＃34; Alpha＆＃34; - ＆＃34; Delta＆＃34;，取决于显示的数组？例如，对于：

print(d[,,2])

导致

      Initial NUMBER FU1 FU2
One        17     21  25  29
Two        18     22  26  30
Three      19     23  27  31
Four       20     24  28  32

我需要标签＆＃39; NUMBER＆＃39;是＆＃39; BETA＆＃39;和

print(D[,,4]

标签为＆＃39; DELTA＆＃39;

由于我必须使用相同的过程处理这些数组，因此创建不同的矩阵是解决方案，我想避免。 （这就是我使用那些多维数组的原因）

编辑：更改标签以便澄清