r - R - 変形 - 溶解エラー

Question

データフレームを溶かそうとすると、この奇妙なエラーが発生します。理由はありますか？

str(zx7)
'data.frame':   519 obs. of  5 variables:
 $ calday.new: Date, format: "2011-01-03" "2011-01-04" "2011-01-05" "2011-01-06" ...
 $ A20    : Time-Series  from 1 to 519: 0 0 0 0 0 0 0 0 0 0 ...
 $ B20    : Time-Series  from 1 to 519: 0 0 0 0 0 0 0 0 0 0 ...
 $ C20    : Time-Series  from 1 to 519: 0 0 0 0 0 0 0 0 0 0 ...
 $ D20    : Time-Series  from 1 to 519: 0 0 0 0 0 0 0 0 0 0 ...

zx7.melt <- melt(zx7, id=c("calday.new"))
Error in `[<-.ts`(`*tmp*`, ri, value = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  : only replacement of elements is allowed

score 2 · Accepted Answer

問題は、古い「reshape」パッケージのmelt()関数が、クラスを持つオブジェクトに遭遇したときに何をすべきかを知らないことtsです。

したがって、2つの明らかなオプションがあります（おそらくもっとありますが）：

unclasstsデータの前と同じように現在分類されている変数melt()：

zx7b <- zx7         # Make a backup, just in case
library(reshape)    # Notice this is "reshape", not "reshape2"
head(melt(zx7b, id=c("calday.new"))) # Doesn't work
# Error in `[<-.ts`(`*tmp*`, ri, value = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  : 
#   only replacement of elements is allowed

## Unclass the relevant columns from your data.frame
zx7b[sapply(zx7b, is.ts)] <- lapply(zx7b[sapply(zx7b, is.ts)],
                                    unclass)
head(melt(zx7b, id=c("calday.new")))
#   calday.new variable value
# 1 2011-01-03      A20     0
# 2 2011-01-04      A20     0
# 3 2011-01-05      A20     0
# 4 2011-01-06      A20     0
# 5 2011-01-07      A20     0
# 6 2011-01-08      A20     0

代わりに「reshape2」にアップグレードしてください。分類を解除する必要はありません。

library(reshape2) # Notice that this is reshape2!
head(melt(zx7, id=c("calday.new"))) # Melt the original data.frame
#   calday.new variable value
# 1 2011-01-03      A20     0
# 2 2011-01-04      A20     0
# 3 2011-01-05      A20     0
# 4 2011-01-06      A20     0
# 5 2011-01-07      A20     0
# 6 2011-01-08      A20     0

時間をかけていませんが、「reshape」パッケージの各バージョンのmelt.data.frameメソッドのコードをチェックして、違いがどこにあるかを確認できます。melt()両方のパッケージをインストールしてから、とを入力reshape2:::melt.data.frameしreshape:::melt.data.frameて、基になる機能を確認します。

score 2 · Accepted Answer

どのように構造を作成したかはわかりませんが、これを行うとうまくいきます

zx7 <- data.frame( calday.new=seq(from = as.Date('2011-01-03'),by=1,length.out=519),
                   A20=ts(rep(0,519)),
                   B20=ts(rep(0,519)),
                   C20=ts(rep(0,519)),
                   D20=ts(rep(0,519)))

上記と同じ構造を作成します。

str(zx7)
'data.frame':   519 obs. of  5 variables:
 $ calday.new: Date, format: "2011-01-03" "2011-01-04" "2011-01-05" ...
 $ A20       : Time-Series  from 1 to 519: 0 0 0 0 0 0 0 0 0 0 ...
 $ B20       : Time-Series  from 1 to 519: 0 0 0 0 0 0 0 0 0 0 ...
 $ C20       : Time-Series  from 1 to 519: 0 0 0 0 0 0 0 0 0 0 ...
 $ D20       : Time-Series  from 1 to 519: 0 0 0 0 0 0 0 0 0 0 ...

それから私は溶けます：

head(melt(zx7, id=c("calday.new")))
  calday.new variable value
1 2011-01-03      A20     0
2 2011-01-04      A20     0
3 2011-01-05      A20     0
4 2011-01-06      A20     0
5 2011-01-07      A20     0
6 2011-01-08      A20     0

r - R - 変形 - 溶解エラー

2 に答える 2

Related

Reference