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

我有几个for循环：

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

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

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

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

[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

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

如何使用write.csv或其他更有用的工具在R中实现这一点？？

---

（请注意，我也尽量不包含这样的消息，即每次-

27级：DD D004 D010 D022 D023 D103 D108 D113 D115 D211 D214…Slz

a

dput

第二个for循环的输出将有帮助。您可以尝试使用

接收器（output.csv）

，而不是打印向量，使用

cat（v2，sep=“，”，fill=TRUE）

我使用了sink（），整个输出都进入了文件..正如预期的..但是我如何将其更改为我在问题中发布的方式？有没有控制/操作sink（）函数输出的方法？？