9

次の構造のデータがあります。

x <- read.table(header=T, text="
X Y D S
a e 1 10
a e 2 20
a f 1 50
b c 1 40
b c 2 30
b c 3 60
b d 1 10 
b d 2 20")

そして、私は次の結果を得たいです:

X Y   1   2   3
a e  10  20
a f  50
b c  40  30  60
b d  10  20

列のすべての組み合わせについて、列のデータを列ごとに転置したいXと思います。YSD

うまくいくと思いxtabs()ましたが、そうは思いません。私の最高のバージョンは次のとおりです。

xtabs(formula=S~Y+D,data=x)

結果:

   D
Y    1  2  3
  c 40 30 60
  d 10 20  0
  e 10 20  0
  f 50  0  0
4

3 に答える 3

15 
require(reshape2)
dcast(x, X + Y ~ D, value.var="S")

(デフォルト) の0代わりに空のエントリを埋めたい場合は、NA

dcast(x, X + Y ~ D, value.var="S", fill=0)
于 2013-06-29T16:07:39.857 に答える
9

ベースRのソリューション：

> reshape(x, timevar="D", idvar=c("X","Y"), direction="wide")
  X Y S.1 S.2 S.3
1 a e  10  20  NA
3 a f  50  NA  NA
4 b c  40  30  60
7 b d  10  20  NA
于 2013-06-29T21:26:03.897 に答える