相关函数总是NA

Question

我试图找出与这个函数的相关性，但是我只得到每个输入的NA：

corr <- function(directory, threshold = 0) {

  filenames <- list.files(directory, pattern="*.csv", full.names=TRUE)
  csv <- lapply(filenames, read.csv)

  correlations <- c()
  c(correlations, lapply(csv, function(x){
    cor(x$nitrate,x$sulfate) 
    print(cor(x$nitrate,x$sulfate))
  }))

  correlations  
}

如果我改变这个函数来打印硝酸盐和硫酸盐，它实际上是有值的，如果我把x传递给cor函数，它会抱怨非数字值。

为什么它总是打印NA而不是实际的相关性？

Answer 1

函数cor有一个参数use，它控制它如何处理丢失的观测，即NA。您可以尝试将它设置为use = "complete.obs"。