当函数需要多个输入时，如何将函数应用于R中数据帧的每一行？

Question

我需要对R中数据帧每行的数据进行卡方检验。到目前为止，我有一个函数可以创建矩阵并对矩阵进行检验。当我手动将数据输入函数时，这工作得很好。

chisquare.table <- function(var1, var2, var3, var4){
  t <- matrix(c(var1, var2, var3, var4), nrow = 2)
  chisq.test(t)

chisquare.table(80, 99920, 85, 99915)

但是，我想做的是将此函数应用于数据框的每一行，使得 var1 是行 x 列 1，var2 是行 x 列 2，var3 是行 x 列 3，var4 是行 x 列 4。

我已经尝试了几种不同的应用程序（）函数的方法，但是我找不到一种允许我按照我想要的方式从行中获取数据的方法。我真的很感激这方面的任何帮助或建议，因为我在网上没有找到太多关于使用具有多个输入的应用程序（）的信息。

Answer 1

如果我们在每一行上应用该函数，请使用应用。此外，不要将行元素一个接一个地指定为参数（因为它可能因每个数据集而异），而是使用…，它可以将任意数量的元素作为参数，并从中创建矩阵

chisquare.tableMod <- function(...){

     t <- matrix(c(...), nrow = 2) 
      chisq.test(t)

   }

out <- apply(df1, 1, chisquare.tableMod)

使用 OP 函数的输出进行测试

chisquare.table <- function(var1, var2, var3, var4){
     t <- matrix(c(var1, var2, var3, var4), nrow = 2)


     chisq.test(t)
  }

outOld <- chisquare.table(80, 99920, 85, 99915)
identical(out[[1]], outOld)
#[1] TRUE

正如@42-在评论中提到的，application返回一个矩阵并且矩阵只能容纳单个类。因此，在使用application时，仅选择那些数字的列（或仅单个类）

df1 <- data.frame(v1 = c(80, 79, 49), v2 = c(99920, 98230, 43240),
      v3  = c(85, 40, 35), v4 = c(99915, 43265, 43238))