Dataframe 从旧数据框中提取的列名命名新数据框

我的原始数据框有311列和~6000行，第一列是交易日期，第2:311列是每日交易的数量。我试图提取特定的列名，以便随后基于数据子集创建新的数据帧

我使用下面的代码指定数据框中的哪一列：

Product <- colnames(Volumes[2])[1] #choosing product

我收到以下错误：

---

警告消息：在colnames（卷[2]）[1]中，尝试

assign（colnames（卷[2]）[1]，as.data.frame（矩阵（0，ncol=2，nrow=2））

Allen，这非常有效。谢谢你的帮助。

colnames(Volumes[2])[1] <- as.data.frame(matrix(0, ncol = 2, nrow = 2))