1

私は次のデータセットを持っています（以下のデータセットのロードについてはを参照してください）

     ID       Date qty
1  ID25 2007-12-01  45
2  ID25 2008-01-01  26
3  ID25 2008-02-01  46
4  ID25 2008-03-01   0
5  ID25 2008-04-01  78
6  ID25 2008-05-01  65
7  ID25 2008-06-01  32
8  ID99 2008-02-01  99
9  ID99 2008-03-01   0
10 ID99 2008-04-01  99

そして、そのピボットテーブルを作成したいと思います。私は次のコマンドでそれを行います、そしてそれはうまく働いているようです：

pivottable <- xtabs(qty ~ ID + Date, table)

出力は次のとおりです。

ID     2007-12-01 2008-01-01 2008-02-01 2008-03-01 2008-04-01 2008-05-01 2008-06-01
ID25         45         26         46          0         78         65         32
ID99          0          0         99          0         99          0          0

ただし、ID99の場合、3つの期間の値のみがあり、残りは「0」としてマークされます。最初の表の値がないフィールドにNAを表示したいと思います。次のようなテーブルを取得したいと思います。

ID     2007-12-01 2008-01-01 2008-02-01 2008-03-01 2008-04-01 2008-05-01 2008-06-01
ID25         45         26         46          0         78         65         32
ID99         NA         NA         99          0         99         NA         NA

これを達成する方法について何か提案はありますか？

データセットの読み込み：

table <- structure(list(ID = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 
2L, 2L), .Label = c("ID25", "ID99"), class = "factor"), Date = structure(c(7L, 
1L, 2L, 3L, 4L, 5L, 6L, 2L, 3L, 4L), .Label = c("01/01/2008", 
"01/02/2008", "01/03/2008", "01/04/2008", "01/05/2008", "01/06/2008", 
"01/12/2007"), class = "factor"), qty = c(45L, 26L, 46L, 0L, 
78L, 65L, 32L, 99L, 0L, 99L)), .Names = c("ID", "Date", "qty"
), class = "data.frame", row.names = c(NA, -10L))

table$Date <- as.POSIXct(table$Date, format='%d/%m/%Y')
4

1 に答える 1

3

2回使用xtabsして、探している出力を取得できます。

  1. テーブルを作成します。

    pivottable <- xtabs(qty ~ ID + Date, table)

  2. 存在しない組み合わせのすべてのゼロを次のように置き換えますNA。

    pivottable[!xtabs( ~ ID + Date, table)] <- NA

出力：

      Date
ID     2007-12-01 2008-01-01 2008-02-01 2008-03-01 2008-04-01 2008-05-01 2008-06-01
  ID25         45         26         46          0         78         65         32
  ID99                               99          0         99

NAsは表示されないことに注意してください。これはprint、このクラスの関数によるものです。unclass(pivottable)ただし、を使用しての通常の動作を実現できますprint。

于 2012-11-19T10:27:33.877 に答える