r - 找不到函数子表

Question

我正在使用《R 编程艺术》一书学习 R。在第 6 章中，作者 Matloff 使用了一个名为 subtable <- function(tbl,subnames) 的函数。 , 但当我输入这个函数时 subtable , 它说找不到该功能，我用谷歌搜索，发现它在包 extracat 中，所以我安装了这个包，但是当我加载这个包时，library(extracat) , 错误信息出来了，说

library(extracat)
   Error in loadNamespace(i, c(lib.loc, .libPaths()), versionCheck = vI[[i]]) : 
   there is no package called ‘plyr’
   Error: package or namespace load failed for ‘extracat’

这个我看不懂，这个功能应该怎么用？有什么建议么？非常感谢。

Answer 1

如果这本书有这样的话

subtable <- function(tbl,subnames)

作者定义了一个名为subtable 的新函数，它接收两个参数tbl 和subnames。正下方的代码是函数运行的内容。我找到了 here和 here您似乎指的功能:

subtable <- function(tbl,subnames) {
   # get array of cell counts in tbl
   tblarray <- unclass(tbl)  
   # we'll get the subarray of cell counts corresponding to subnames by
   # calling do.call() on the "[" function; we need to build up a list
   # of arguments first
   dcargs <- list(tblarray)  
   ndims <- length(subnames)  # number of dimensions 
   for (i in 1:ndims) {
      dcargs[[i+1]] <- subnames[[i]]
   }  
   subarray <- do.call("[",dcargs)  
   # now we'll build the new table, consisting of the subarray, the
   # numbers of levels in each dimension, and the dimnames() value, plus
   # the "table" class attribute
   dims <- lapply(subnames,length) 
   subtbl <- array(subarray,dims,dimnames=subnames)
   class(subtbl) <- "table"
   return(subtbl)
}

在您的 R 控制台中编写(或复制粘贴)所有代码后，您将能够调用此函数。所以我怀疑你想在这里安装任何新包!