R

Question

假设我在R中将 6个函数定义为名为 A，B，... F 的对象。

现在，我希望以下软件包能够运行6次，每次都将6个函数中的一个放入＆＃39;名字，比方说，A，在＆＃34; fun = ＆＃34;并将文件名放在＆＃34; file = ＆＃34;之前。对于 A ， 2.docx <的文件名可以是 1.docx F 的强> B ，...， 6.docx 。

以下是我想要运行6次的套餐（请注意，每次运行时，只有＆＃34; 有趣= ＆＃34;＆amp;＆＃34; file = < / strong>＆＃34;需要更改）：

library('ReporteRs')
doc = docx()
doc = addPlot(doc, fun = A, vector.graphic = TRUE) 
writeDoc(doc, file = "1.docx")

Answer 1

考虑使用lapply进行数字迭代的简单seq_along：

funclist <- list(A, B, C)

lapply(seq_along(funclist), function(i){
   doc = docx()
   doc = addPlot(doc, fun = funclist[[i]], vector.graphic = TRUE) 
   writeDoc(doc, file = paste0(i, ".docx"))
})