R编程 - 在循环中创建列表

Question

我试图通过在循环中对主数据进行子集来在循环内创建数据帧列表。但是它抛出了这个错误

Error in `[.data.frame`(top_mfr, i) : undefined columns selected
In addition: Warning messages:
1: In fata1[i] <- subset(data, data$PROD_MANUFACTURER == top_mfr[i]) :
  number of items to replace is not a multiple of replacement length
2: In fata1[i] <- subset(data, data$PROD_MANUFACTURER == top_mfr[i]) :
  number of items to replace is not a multiple of replacement length

代码片段如下。

for(i in 1:length(top_mfr))
{ data1[i]<-subset(data,data$PROD_MANUFACTURER==top_mfr[i])}