假设你有一个类似的DataFrame：

testing <- as.data.frame(matrix(sample(1:100, 60, replace=TRUE), ncol=6))
names(testing) = c("date", "time", "10.Q.29", "10.Q.30", "10.Q.36", "10.Q.63")

正如你所说，你想为特定的列创建一个数据框。在这个例子中，目标是从第三个到第六个。
一种方法是只提取所需的列：

posData = testing[,c(3:ncol(testing))]

定义每个新 Dataframe 的名称。请注意，我添加了一个前缀：

newDfName = paste("newDf", names(posData), sep="_")

然后，提取信息并使用assign为每一列创建一个 Dataframe ：

for (i in 1:ncol(posData))
{
    tmpDf = as.data.frame(posData[,i])
    assign(newDfName[i], tmpDf)
}

您可以使用ls()检查结果：

> ls()
[1] "i"             "newDf_10.Q.29" "newDf_10.Q.30" "newDf_10.Q.36" "newDf_10.Q.63" "newDfName"    
[7] "posData"       "testing"       "tmpDf"        
>