R 如果缺少X个以上的值，如何声明缺少？

假设我想取作业的平均（平均）5分[X1 X2 X3 X4 X5]。如果缺少2个或多个分数，我如何指示缺少平均值？因此，如果[X1…X5]中的任意2个或多个缺失，则会将平均值列为缺失或N/A？

您可以使用如下函数：

scorefunc <- function(x) {
  #if the total number of the missing is more than 1 return missing
  #else return the average value
  if(sum(is.na(x)) > 1) return(NA) else(return(mean(x, na.rm=TRUE)))
}

scorefunc 1）返回（NA）其他（返回（平均值（x，NA.rm=TRUE）））
}

然后进行测试：

#two example vectors 
vec1 <- c(1,5,6,7,NA)
vec2 <- c(NA, NA, 4, 1, 5)

#> scorefunc(vec1)
#[1] 4.75
#> scorefunc(vec2)
#[1] NA

#两个示例向量
vec1分数函数（vec2）
#[1] NA