无法写在列表上。尝试了多种方法

Question

我正在编写一个代码，试图在其中使用for循环创建“列表”向量。除了一个小问题，我已经解决了大多数代码。

这是我的代码：

dnt_1 = vector("list", length(unique(dnt$A)))
dnt_2 = vector("list", length(unique(dnt$A))) #length = 22
dnt_3 = NULL
dnt_4 = NULL
for (i in unique(dnt$PLAZA)){
     dnt_3 = subset(dnt, A == i)
     dnt_4 = subset(dnt_3, select = c("B", "C", "D"))
     dnt_1[[i]] = dnt_3
     dnt_2[[i]] = dnt_4
     }

dnt_1列表很完美。 列表：dnt_2也显示NULL值。结果显示22个值为NULL，其余22个为子集变量。基本上，前22个值没有用。

请有人帮助我改善该错误。如果有人还可以附​​加文档或解释一般如何纠正此类错误，将大有帮助。