使用for循环（R）创建表

Question

我刚开始使用R软件，需要您的帮助。

我在此数据中有很多变量（列），我需要使用for循环在一个表中显示它们。我使用了这段代码，但是表中只保存了一个变量。

任何人都可以修改代码吗？

library(tidyverse)
library(gapminder)
data(gapminder)

for (i in 4:6)
{table_one <- tableby(continent ~ gapminder[[i]], 
                     data = gapminder)
summary(table_one, title = "Gapminder Data", text=TRUE)


write2word(table_one, "table 1.doc",
           keep.md = TRUE,
           quiet = TRUE,
           
           title = "Maximum ROM of the main movements")

}

Answer 1

原因是文件名相同"table 1.doc"，因此覆盖了每次迭代中已经生成的表。运行循环后得到的输出来自上一次迭代

for (i in 4:6){
  table_one <- tableby(continent ~ gapminder[[i]], 
                     data = gapminder)
   print(summary(table_one, title = "Gapminder Data", text=TRUE))

   filename <- paste0("table", i, ".doc")
   write2word(table_one, filename,
           keep.md = TRUE,
           quiet = TRUE,
           
           title = "Maximum ROM of the main movements")

}