0

このブログは、ネストされたテーブルをLaTeX形式（ブログリンク）に変換することで見つかりました。結果は気に入っていますが、行名の後の最初のオブジェクトに列を挿入したいと思います。私はデータフレームの処理に慣れているため、この獣の処理は通常の列のインデックス作成よりも困難です。

これが私が今持っているものです：

          pre         post       
 approach mean  sd    mean  sd   
 1        24.17 8.310 54.33 11.01
 2        25.50 9.434 65.25 16.32
 3        26.33 9.139 63.17 12.53

そして、これが私がそれをどのように見せたいかです：

             pre         post       
 approach n  mean  sd    mean  sd   
 1        12 24.17 8.310 54.33 11.01
 2        12 25.50 9.434 65.25 16.32
 3        12 26.33 9.139 63.17 12.53

これがzの出力であり、挿入したいnの列もあります。

前もって感謝します。

z <- structure(list(24.1666666666667, 25.5, 26.3333333333333, 8.31027111835746, 
    9.4339811320566, 9.13866245766587, 54.3333333333333, 65.25, 
    63.1666666666667, 11.0068848977136, 16.3157759685081, 12.5323822978956), .Dim = 3:4, .Dimnames = list(
    NULL, c("term", "term", "term", "term")), rowLabels = structure(c("1", 
"2", "3"), .Dim = c(3L, 1L), .Dimnames = list(NULL, "approach"), justification = structure(c(NA_character_, 
NA_character_, NA_character_), .Dim = c(3L, 1L)), colnamejust = NA_character_, justify = NA, suppress = 0), colLabels = structure(c("pre", 
"mean", NA, "sd", "post", "mean", NA, "sd"), .Dim = c(2L, 4L), justification = structure(c(NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_), .Dim = c(2L, 4L)), colnamejust = character(0), justify = NA, suppress = 0), table = value * 
    v * approach ~ variable2 * result_variable, formats = structure(c(NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = 3:4, .Dimnames = list(
    NULL, c("format", "format", "format", "format"))), justification = structure(c(NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = 3:4, .Dimnames = list(
    NULL, c("justification", "justification", "justification", 
    "justification"))), class = "tabular")

structure(c(12L, 12L, 12L), .Names = c("1", "2", "3"))
4

2 に答える 2

2

唯一の（既知の？）方法は、再注文されたものを再割り当てすることです。

R> mockup <- data.frame(B=21:23, C=31:33)
R> mockup
   B  C
1 21 31
2 22 32
3 23 33
R>

次に、列Aを追加します。

R> mockup[,"A"] <- 1:3
R> mockup
   B  C A
1 21 31 1
2 22 32 2
3 23 33 3
R>

そして再注文：

R> mockup <- mockup[,c("A", "B", "C")]
R> mockup
  A  B  C
1 1 21 31
2 2 22 32
3 3 23 33
R>

Presto。最初の新しい列。

于 2012-09-12T15:14:09.010 に答える
1

このようなもの：

z <- data.frame(approach = gl(3, 12), pre = rnorm(36)*50, post = rnorm(36)*60)
library(tables)
tabular(approach ~ (pre + post) * (mean + sd))

      pre          post         
approach mean   sd    mean    sd   
1        -5.431 61.01   3.766 54.76
2        20.408 29.14  -9.261 54.58
3        -7.854 53.55 -30.046 62.41
tabular(approach ~ (n=1) + (pre + post) * (mean + sd))

    pre          post         
approach n  mean   sd    mean    sd   
1        12 -5.431 61.01   3.766 54.76
2        12 20.408 29.14  -9.261 54.58
3        12 -7.854 53.55 -30.046 62.41
tabular(approach + 1 ~ (n=1) + (pre + post) * (mean + sd))

    pre          post         
approach n  mean   sd    mean    sd   
1        12 -5.431 61.01   3.766 54.76
2        12 20.408 29.14  -9.261 54.58
3        12 -7.854 53.55 -30.046 62.41
All      36  2.374 50.06 -11.847 57.46

詳細については、パッケージのビネットを参照してください。tables

于 2013-01-16T15:18:25.950 に答える