R语言将滑动窗口列表转换为适配keras要求的3D数组问题

你生成的滑动窗口列表可以通过以下两种方法转换为目标维度(14,3,3)的3D数组，完全保留原有数据排布，可直接作为Keras AE模型输入： #

方法1：使用abind包（推荐，代码简洁） #

abind包可以直接沿指定维度拼接列表内的矩阵/数据框，一步得到目标格式：

# 首次使用先安装包
install.packages("abind")
library(abind)
# 转换列表为3D数组
x_array <- abind(x, along = 0)
# 验证维度
print(dim(x_array)) # 输出 [1] 14  3  3

方法2：Base R 实现（无需额外安装包） #

如果不想安装第三方包，可以用R原生数组操作实现：

# 拉平列表所有元素
x_flat <- unlist(x)
# 按列优先规则构造数组，初始维度为(窗口大小, 特征数, 样本数)
x_array <- array(x_flat, dim = c(3, 3, 14))
# 调整维度顺序为(样本数, 窗口大小, 特征数)
x_array <- aperm(x_array, perm = c(3, 1, 2))
# 验证维度
print(dim(x_array)) # 输出 [1] 14  3  3

得到的x_array可直接传入Keras模型，模型输入层指定input_shape = c(3,3)即可匹配要求的(None,3,3)输入格式。

内容的提问来源于stack exchange，提问作者Equada