1

我正在学习 R，所以如果我的问题听起来太基本，我很抱歉。这是我编写的用于从表创建子表的函数。我正在关注 Norman Matloff 的书。所以，如果您认为有更短的方法可以做到这一点，我再次感到抱歉。我现在正在学习，所以更长的方法只会帮助我确认我对 R 的理解

subtable <- function(tbl,subnames)
{
  tblarray <- unclass(tbl)
  dcargs <-list(tblarray)
  ndims <- length(subnames) # number of dimensions
  for(i in 1:ndims)
  {
    dcargs[[i+1]]<-subnames[[i]]
  }
  subarray <-do.call("[",dcargs) ###LINE1###
  dims <-lapply (subnames,length)
  subtbl<-array(subarray,dims,dimnames = subnames)
  class(subtbl)<-"table"
  return(subtbl)
}

现在，当我使用以下方法调用该函数时：

ct<-read.table("ct.dat",header=T)

其中 ct.dat 是：

"Vote.for.X" "Voted.for.X.Last.Time"
"Yes" "Yes"
"Yes" "No"
"No" "No"
"Not Sure" "Yes"
"No" "No"

现在，我会打电话

cttable<-table(ct)
subtable(cttable,subnames<-list(Vote.for.X=c("No","Yes"), Voted.for.X.Last.Time=c("No","Yes"))

我得到了正确的子表。但是，我不知道 LINE1 在做什么。

我逐行执行代码以查看发生了什么。这是我在调用 for 循环后得到的：

> dcargs
[[1]]
          Voted.for.X.Last.Time
Vote.for.X No Yes
  No        2   0
  Not Sure  0   1
  Yes       1   1

[[2]]
[1] "No"  "Yes"

[[3]]
[1] "No"  "Yes"

现在，我知道 dcargs 将是“[”的函数参数。除此之外，我不知道 LINE 1 发生了什么。我真的被卡住了。

请问有什么帮助吗？

4

1 回答 1

1

除了@thelatemail 的精彩评论，您还可以从帮助页面获取更多信息，该页面help('[')显示

[ 索引类似于原子向量并选择指定元素的列表

从帮助do.call我们阅读

do.call 从名称或函数以及要传递给它的参数列表构造并执行函数调用。

此行[使用列表参数 dcargs 调用函数（因为它们是 do.call 参数而命名）。由于 dcargs 的元素是表的索引，因此该行所做的是引用列表对象的相关索引，包含在 [[2]] 和 [[3]] 中，它将对其进行索引。

简而言之，do.call("[",dcargs)索引 的 no 和 yes 行以及 no 和 yes 列dcargs[[1]]。

于 2016-07-27T04:25:25.777 回答