如何将for循环的输出存储到R中的csv文件中？

Question

我有几个for循环：

for (i in 1:length(v1))
{  
  v2[i] <- subset(file1, srl == v1[i], FlrGrp)
}

和

for(i in 1:length(v1))
{
  print(v1[i])
  print(v2[i])
}

和v1 []是一些数字的向量..

现在第二个for循环的输出如下：

[1] 789
[[1]]
[1] Pg        D115    D06    Slz
27 Levels:  DD D004 D010 D022 D023 D103 D108 D113 D115 D211 D214 ... Slz

[1] 787
[[1]]
[1] D010           Hs/Cn
27 Levels:  DD D004 D010 D022 D023 D103 D108 D113 D115 D211 D214 ... Slz

[1] 949
[[1]]
[1] Hs/Cn D06          
27 Levels:  DD D004 D010 D022 D023 D103 D108 D113 D115 D211 D214 ... Slz

现在我想使用write.csv文件创建一个csv文件，其输出将按如下方式存储：

srl FlrGrp
789 Pg,D115,D06,Slz
787 D010,Hs/Cn
949 Hs/Cn,D010

如何使用write.csv或其他更有用的方法在R中实现这一点？ （请注意，我也尝试不要包含每次都显示的消息 - 27 Levels: DD D004 D010 D022 D023 D103 D108 D113 D115 D211 D214 ... Slz