循环遍历数据帧以存储多个数据帧子集

Question

我有一个data.frame（df），其中包含N个用户（行）和i个（cols）编码二进制文件。

从我的基础来看，我想做不同的子集来分析和绘制它们。
使用我在下面创建的代码，我总是崩溃R Studio并收到错误。
所以我的问题是这里有什么问题？我该如何解决？
如何通过使用apply-family来提高性能=？

来优化我的代码

我的预期输出： 一个长度列表（i）我的基础df的子集的不同data.frames。

list <- c("1","2","3","4")
for (i in list) {
    assign(paste("datasub.",i,sep=""), subset(df, df[,i]==1))
}

很多请求帮助！