如何在 R 中以不同方式对多维数据进行切片
How to slice multidimensional data in different ways in R
我在多个维度 (2,3,2) 的数组中有以下数据（即每个观察是一个长方体，由 两个 大小为 2x3 的矩阵组成）。这里的观察数是 3.
y1 <- array(c(4.5,2.7,5.6,9.5,5.4,5.5,4.7,2.9,5.6,9.9,5.0,4.9), dim = c(2,3,2))
y2 <- array(c(4.6,3.2,5.8,10.2,5.4,5.9,4.9,2.9,5.9,9.9,5.5,4.5), dim = c(2,3,2))
y3 <- array(c(4.8,2.9,5.7,9.2,5.1,5.2,4.6,2.5,5.4,9.4,5.4,5.8), dim = c(2,3,2))
我想用三种不同的方式切割这个长方体：
- A)
Y1 <- matrix(y1,2,6)
Y2 <- matrix(y2,2,6)
Y3 <- matrix(y3,2,6)
- B)
Y1 <- cbind(t(y1[,,1]),t(y1[,,2]))
Y2 <- cbind(t(y2[,,1]),t(y2[,,2]))
Y3 <- cbind(t(y3[,,1]),t(y3[,,2]))
- C)
library(ks)
Y1 <- t(cbind(vec(y1[,,1]),vec(y1[,,2])))
Y2 <- t(cbind(vec(y2[,,1]),vec(y2[,,2])))
Y3 <- t(cbind(vec(y3[,,1]),vec(y3[,,2])))
有没有比手动输入数据更有效的切片长方体的方法？
一个选项是将它放在 list 中并执行一次
lst1 <- list(y1, y2, y3)
lapply(lst1, matrix, nrow = 2, ncol = 6)
lapply(lst1, function(x) cbind(t(x[,,1]),t(x[,,2])))
第三种情况
lapply(lst1, function(x) t(cbind(vec(x[,,1]),vec(x[,,2]))))
我在多个维度 (2,3,2) 的数组中有以下数据（即每个观察是一个长方体，由 两个 大小为 2x3 的矩阵组成）。这里的观察数是 3.
y1 <- array(c(4.5,2.7,5.6,9.5,5.4,5.5,4.7,2.9,5.6,9.9,5.0,4.9), dim = c(2,3,2))
y2 <- array(c(4.6,3.2,5.8,10.2,5.4,5.9,4.9,2.9,5.9,9.9,5.5,4.5), dim = c(2,3,2))
y3 <- array(c(4.8,2.9,5.7,9.2,5.1,5.2,4.6,2.5,5.4,9.4,5.4,5.8), dim = c(2,3,2))
我想用三种不同的方式切割这个长方体：
- A)
Y1 <- matrix(y1,2,6)
Y2 <- matrix(y2,2,6)
Y3 <- matrix(y3,2,6)
- B)
Y1 <- cbind(t(y1[,,1]),t(y1[,,2]))
Y2 <- cbind(t(y2[,,1]),t(y2[,,2]))
Y3 <- cbind(t(y3[,,1]),t(y3[,,2]))
- C)
library(ks)
Y1 <- t(cbind(vec(y1[,,1]),vec(y1[,,2])))
Y2 <- t(cbind(vec(y2[,,1]),vec(y2[,,2])))
Y3 <- t(cbind(vec(y3[,,1]),vec(y3[,,2])))
有没有比手动输入数据更有效的切片长方体的方法？
一个选项是将它放在 list 中并执行一次
lst1 <- list(y1, y2, y3)
lapply(lst1, matrix, nrow = 2, ncol = 6)
lapply(lst1, function(x) cbind(t(x[,,1]),t(x[,,2])))
第三种情况
lapply(lst1, function(x) t(cbind(vec(x[,,1]),vec(x[,,2]))))