获取列名称，该列名称在矩阵的行内保存最大值，该矩阵在数组中保持单独的最大值

For instance given:

例如给出：

dim1 <- c("P","PO","C","T")
dim2 <- c("LL","RR","R","Y")
dim3 <- c("Jerry1", "Jerry2", "Jerry3")
Q <- array(1:48, c(4, 4, 3), dimnames = list(dim1, dim2, dim3))
dim1 <- c("P","PO