R语言apply()内嵌套print()函数输出异常原因问询

这个现象是两个R的基础运行规则共同导致的，和apply()本身的循环逻辑没有关系：

• 第一，print()本身兼具副作用和返回值：
  print()是显式输出函数，执行时会立刻把内容打印到控制台，这部分输出是实时触发的。示例中用于测试的矩阵是4行，apply()按行遍历会执行4次传入的自定义函数，所以循环过程中会实时打印4次单独的[1] 1，这就是输出前4行的来源。
  同时print()会将传入的参数原封不动作为函数返回值返回，也就是说function(x) print(1)和function(x) {print(1); return(1)}的行为完全一致，4次循环执行完后，apply()会收集到4个返回值1，拼接成长度为4的数值向量作为apply()本身的最终返回结果。
• 第二，R控制台的默认自动打印规则：
  当你在控制台直接运行表达式、且没有把表达式结果赋值给变量时，R会自动调用一次print()打印这个表达式的最终返回值。你看到的最后一行[1] 1 1 1 1，根本不是循环过程中打印的内容，是控制台拿到apply()的最终返回向量后自动触发的打印。

两个示例的输出差异也可以用这个逻辑解释：
当自定义函数直接写return(1)时，循环执行过程中没有任何显式打印的副作用，整个过程只会触发最后一次控制台对apply()返回值的自动打印，所以输出只有一行长度为4的全1向量，和预期一致。

你可以用一行代码验证这个逻辑：把apply()的运行结果赋值给变量，就不会触发控制台对最终返回值的自动打印：

# 结果赋值给变量后，只会出现循环内print触发的4次输出
res <- apply(matrix(1:8, ncol = 2), 1, function(x) print(1))

运行上述代码你只会看到4行单独的[1] 1，不会出现最后那行长度为4的向量输出。

内容的提问来源于stack exchange，提问作者kamiks