用于在循环中创建结果的打印命令

Question

假设我有以下循环：

test <- mtcars
target_var <- c("mpg", "wt")
group_var <- c("gear", "carb")

library(tidyverse)

for (i in target_var) {
  for (j in group_var) {

print(prop.table(table(test[, i], test[, j]), 2))
  }
}

当我运行它时，我看到报告了四个 prop.table，每个都有一个从 [1] 到 [[4]] 的标题。通过查看代码并查看分配给 target_var 和 group_var 的变量的顺序，我可以直观地匹配哪个 prop.table 与哪些变量。

但是假设我正在循环十几个变量或更多。显然，将一个特定的 prop.table（例如，列为“[[14]]”）与该表中的实际变量进行匹配是一个问题。

有没有办法打印用于生成每个特定表的命令 R？

我不是在寻找progress bar，而是在控制台中打印的每个表格上方列出代码的东西。例如，下面的代码将打印在适当的 prop.table 的正上方：

prop.table(table(test$mpg, test$gear), 2)
# actual prop.table result from the first time through the loop here

prop.table(table(test$mpg, test$carb), 2)    
# actual prop.table result from the second time through the loop here

这将有助于我进行探索性数据分析。

Answer 1

如果我理解得很好，您希望函数的结果“随用随用”（即在循环的每次迭代中，而不是在结束时）？

您可以使用cat 代替print（请务必在调用cat 后打印一个新行\n 以避免混乱的控制台）：

for(i in 1:3) {
    results <- mean(rnorm(10))
    cat(results)
    cat("\n")
}