函数输出中的NULL来自何处？

Question

下面，我创建一个名为c_data的数据框。 请注意，变量ri有一个缺失值。

然后，我编写了一个检查数据的函数。 第一步是如果ri缺少数据，则停止该功能。 （我从函数中删除了与我的问题无关的语法）。

我提供输出。

该函数按预期执行，除了除了预期结果外还输出NULL 。 为什么打印NULL ？

#create data to test function
r <- c(.15, .10, NA)
N <- c(100, 86, 56)
chrvar <- c("a", "b", "c")
c_data <- as.data.frame(cbind(r,N, chrvar))
#change variable type from factor to numeric
c_data$r <- as.numeric(c_data$r)
#change N variable type from factor to integer
c_data$N <- as.integer(c_data$N)
#change chrvar from factor to character
c_data$chrvar <- as.character(c_data$chrvar)
str(c_data)


myFun <- function(ri= ri, ni=ni, data = data)
 {

  #add ri and ni to the data frame named data
  data$ri <- ri
  data$ni <- ni

  #does ri have any missing data
  num.missing.ri <- 0
  for (i in 1:nrow(data))
     {
       if (is.na(data$ri[i] == TRUE)) num.missing.ri = num.missing.ri + 1
     }
  if(num.missing.ri != 0)
     {
     print(cat("Number of missing values in ri is", num.missing.ri,"\n"))
     stop("ri has missing data. myFun is terminated.") 
     }

 }

      myFun(ri = r, ni = N, data = c_data)

这将产生以下输出：

myFun(ri = r, ni = N, data = c_data)

##Number of missing values in ri is 1 
##NULL
## Error in myFun(ri = r, ni = N, data = c_data) : 
##  ri has missing data. myFun is terminated.

为什么打印NULL？

Answer 1

打印NULL ，因为这是cat函数的返回值。 您不需要print和cat 。

x <- cat("asdf")
x
##NULL
print(x)
##NULL

在您的情况下， cat打印有关缺失值的信息，然后print打印由cat返回的值，该值为NULL

仅供参考：您可以提高效率，例如：

if(any(ind.na <- is.na(c_data$ri))) stop(paste("ri has", sum(ind.na), "missing values"))

Answer 2

@adibender正确回答了这个问题。

只要这样做：

cat("Number of missing values in ri is", num.missing.ri,"\n")

或这个：

print(paste("Number of missing values in ri is", num.missing.ri))

---

另外，由于您是函数的新手，我只是想做个笔记。 当编写函数myFun ，您正在为变量设置默认myFun 。

因此，当您将函数实例化为function(ri = ri, ni = ni, data = data) ，您会告诉R在用户从其函数调用中遗漏ri，ni和/或data的情况下，使用ri，ni和/或数据。 除非您在其他地方实例化了ri，ni或数据，否则对于该函数而言这实际上没有任何意义。

相反，您可以将函数编写为function(ri, ni, data) ，如果使用时忽略了这些参数，R将引发错误。