5

cbindテーブル オブジェクトをor -ing した後rbind(たとえば、合計のマージンを追加するなど)、dimname の名前が失われます (「 」を参照y)。私はこの「回避策」を見つけましたが、ハッキーに見えないすぐに使える解決策があるかどうか疑問に思っていました。おそらく、その場でできることでしょうか？class のオブジェクトを保持したいと思いますtable。

>   (x <- table(1:3, sample(1:3), dnn = c("rows", "cols")))
    cols
rows 1 2 3
   1 1 0 0
   2 0 0 1
   3 0 1 0
>   (y <- cbind(x, "4" = 4:6)) # "rows" and "cols" get lost
  1 2 3 4
1 1 0 0 4
2 0 0 1 5
3 0 1 0 6
> names(dimnames(y)) <- names(dimnames(x))
> y
    cols
rows 1 2 3 4
   1 1 0 0 4
   2 0 0 1 5
   3 0 1 0 6
4

1 に答える 1

3

どうaddmarginsですか？デフォルトで合計を計算しますが、任意のカスタム関数をプラグインできます。例えば：

> addmargins(x, margin=c(2,2), FUN=list('sum', 'mean'))
Margins computed over dimensions
in the following order:
1: cols
2: cols
    cols
rows   1   2   3 sum mean
   1 0.0 1.0 0.0 1.0  0.5
   2 0.0 0.0 1.0 1.0  0.5
   3 1.0 0.0 0.0 1.0  0.5
于 2012-02-09T16:04:54.723 に答える