用于数组的 xtable

Question

我正在尝试将 xtable 用于 3 维数组。我最小的例子是

Test <- 
structure(1:8, .Dim = c(2L, 2L, 2L), .Dimnames = list(c("A1", 
"A2"), c("B1", "B2"), c("C1", "C2")))

library(plyr)
library(xtable)

a_ply(.data=Test, .margins=3, function(i) {
  xtable(x = Test[, , i])
      }
)

这会产生以下错误：

  Error in xtable(x = Test[, , i]) : subscript out of bounds

如果您能给我一些解决此问题的建议，我将不胜感激。提前致谢。

Answer 1

这是一个旧线程，但我在当前项目中遇到了类似的问题。我想要一个 HTML 表格输出，其标题使用我的数组的第三个暗淡的名称标记。

通过不同地使用我的数组解决了这个问题。这个answer 引导我找到我的解决方案。

x <- 1:dim(Test)[3]
l_ply(x, 
      function(i) cat(print(
                           xtable(Test[,,i],
                                  caption = paste("Heading ",
                                          dimnames(Test)[[3]][i],
                                          sep = "")),
                           type = "html", caption.placement = "top"), 
                         file = "Test.html",
                         append = TRUE))

Answer 2

a_ply 不返回任何内容，因此希望您的函数可以保存这些内容或类似内容。您传递给函数的 i 是基于您提供的边距的数组的子集。所以你先发送 2x2 数组 C1，然后发送 2x2 数组 C2：

a_ply(Test, 3, function(i) {print(i); print('-----')})

所以用i 索引到你的Test 数组没有意义。

为什么不只是：

apply(Test, 3, xtable)

或使用 plyr：

alply(Test, 3, xtable)

对于编织者：

a_ply(Test, 3, function(i) print(xtable(i)))