复现了你的问题，觉得很奇妙。
去掉print这个函数就好了，如果再花点心思只去掉其中一个，你会发现有print那个会显示两个结果，而另一个不会。
事有蹊跷，出在print这个函数上，它除了直接“打印”，它本身还能生成一个值，例如你a <- print("x")，打印先执行，然后赋值；例如你length(print("x"))，打印先执行，然后计算length，输出结果。
所以你的ifelse里，在判断结束的时候，先执行了一遍打印，然后该值又被作为ifelse的结果输出了一遍

x <- 0
ifelse(x>10,print("x真大。"),0==print("x真小。"))

你这么改就明白了！楼上说的是对的。

非常感谢！！

感谢！