`ifelse` 中的 `print` 函数

Question

我想知道为什么ifelse(1<2,print("true"),print("false")) 会返回

[1] "true"
[1] "true"

而ifelse(1<2,"true","false") 返回

[1] "true"

我不明白为什么ifelse 中的print 会两次返回"true"

Answer 1

这是因为ifelse 总是会返回一个值。当您运行ifelse(1<2,print("true"),print("false")) 时，您的yes 条件被选中。这个条件是在控制台上打印"true"的函数调用，它确实如此。

但是print() 函数也返回它的参数，但是是不可见的（例如赋值），否则在某些情况下你会打印两次该值。当yes 表达式被求值时，它的结果就是ifelse 返回的结果，而ifelse 不会无形地返回，所以它会打印结果，因为它是在全局环境中运行的并且没有任何赋值。

我们可以测试一些变化并检查发生了什么。

> result <- print("true")
[1] "true" # Prints because the print() function was called.
> result
[1] "true" # The print function return its argument, which was assigned to the variable.

> ifelse(1<2, {print("true");"TRUE"},print("false"))
[1] "true" #This was printed because print() was called
[1] "TRUE" #This was printed because it was the value returned from the yes argument

如果我们分配这个ifelse()

> result <- ifelse(1<2, {print("true");"TRUE"},print("false"))
[1] "true"
> result
[1] "TRUE"

我们还可以看看同时评估两个条件条件的情况：

> ifelse(c(1,3)<2, {print("true");"TRUE"},{print("false");"FALSE"})
[1] "true" # The yes argument prints this
[1] "false" # The no argument prints this
[1] "TRUE"  "FALSE" # This is the returned output from ifelse()

您应该使用ifelse 创建新对象，而不是根据条件执行操作。为此，请使用 if else。 The R Inferno 有很好的部分 (3.2) 关于两者之间的区别。

Answer 2

只是为 Molx 的出色回答添加一些论据。 发生这种情况的原因之一在于：

length(print("true"))
[1] "true"
[1] 1
length(length(print("true")))
[1] "true"
[1] 1
length(length(length(print("true"))))
[1] "true"
[1] 1

...等等...

在R手册中是这样说的：

是测试的真实元素的返回值

注意 values，而不是 value，这里我们有两个值：一个是 print 函数的对象（很可能必须打印“true”它是对函数的调用，在本例中为 print，因此具有带有 true 的字符向量），另一个是输出 print "true"，它是 ifelse 语句的正确元素。

可以通过以下方式避免：

 ifelse(1 < 2, "true" , "false" )
[1] "true"

Answer 3

不是同时打印 TRUE 和返回 TRUE 吗？

所以例如使用 cat 而不是 print 会改变输出...

这基本上和ulfelders的评论有关。