5

Month、Store、Demand という列を持つ data.frame があります。

Month   Store   Demand
Jan     A   100
Feb     A   150
Mar     A   120
Jan     B   200
Feb     B   230
Mar     B   320

月ごとに列を持つ新しい data.frame または配列を作成するために、それをピボットする必要があります。たとえば、次のように保存します。

Store   Jan Feb Mar
A       100 150 120
B       200 230 320

どんな助けでも大歓迎です。Rを始めたばかりです。

4

3 に答える 3

9 
> df <- read.table(textConnection("Month   Store   Demand
+ Jan     A   100
+ Feb     A   150
+ Mar     A   120
+ Jan     B   200
+ Feb     B   230
+ Mar     B   320"), header=TRUE)

したがって、おそらく月の列は、レベルがアルファベット順にソートされた要素です（編集:)

> df$Month <- factor(df$Month, levels= month.abb[1:3])
 # Just changing levels was not correct way to handle the problem. 
 # Need to use within a factor(...) call.
> xtabs(Demand ~ Store+Month, df)
      Month
 Store Jan Feb Mar
     A 100 150 120
     B 200 230 320

少しわかりにくいメソッド（「I」関数が引数を返すため）：

> with(df, tapply(Demand, list(Store, Month) , I)  )
  Jan Feb Mar
A 100 150 120
B 200 230 320
于 2011-06-24T17:21:13.910 に答える
5

Rへようこそ。

通常、R を使用して同じ目的を達成する方法は多数あります。もう 1 つの方法は、Hadley の reshape パッケージを使用することです。

# create the data as explained by @Dwin
df <- read.table(textConnection("Month   Store   Demand
                                Jan     A   100
                                Feb     A   150
                                Mar     A   120
                                Jan     B   200
                                Feb     B   230
                                Mar     B   320"), 
                 header=TRUE)

# load the reshape package from Hadley -- he has created GREAT packages
library(reshape)

# reshape the data from long to wide
cast(df, Store ~ Month)

参考までに、この素​​晴らしいチュートリアルをチェックしてください。http://www.jstatsoft.org/v21/i12/paper

于 2011-06-24T17:43:02.630 に答える
4

データが入っているdat(そしてレベルがカレンダー順に設定されている) 場合、別の基本 R ソリューションは (信じられないほど直観的でない)reshape()関数を使用することです。

reshape(dat, v.names = "Demand", idvar = "Store", timevar = "Month", 
        direction = "wide")

データのスニペットについては、次のようになります。

> reshape(dat, v.names = "Demand", idvar = "Store", timevar = "Month", 
+         direction = "wide")
  Store Demand.Jan Demand.Feb Demand.Mar
1     A        100        150        120
4     B        200        230        320

必要に応じて、名前を簡単に消去できます。

> out <- reshape(dat, v.names = "Demand", idvar = "Store", timevar = "Month", 
+                direction = "wide")
> names(out)[-1] <- month.abb[1:3]
> out
  Store Jan Feb Mar
1     A 100 150 120
4     B 200 230 320

(上記の出力を取得するために、@DWin の回答に示されているのと同様の方法でデータを読み取り、次を実行しました。

dat <- transform(dat, Month = factor(Month, levels = month.abb[1:3]))

dat私がデータと呼んだものはどこにありましたか）

于 2011-06-24T20:32:52.770 に答える