library(reshape)
names(harvest.dat) = c("CROP_ID", "CROPTYPE", "PERIOD","CUT_AGE")
harvest <-cast(harvest.dat, CROP_ID + CROPTYPE ~ PERIOD)
It seems that I am getting the frequencies instead of the individual values.
Output
~~~~~~~~~
CROP_ID CROPTYPE 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
1 1 OTO 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2 1 SORI 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 2 OTO 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
4 2 SORI 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
5 2 SORM 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 3 OTO 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7 3 OTRM 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
8 3 SORI 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
9 3 SORM 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
~~~~~~~~~
Desired table
CROP_ID CROPTYPE P1 P2 P3 P4 P5 P6
P7 P8 P9 P10
83 SORI 31 84 SORI 32 85 SORI 33 86 SORI 34 82 SORI 28 83 SORI 29 84 SORI 30 93 SORM 35 62 OTRM 30 82 SORI 27 3 SORM 35 82 SORI 26 4 SORM 34 5 OTRI 25 5 OTRM 29 5 SORM 32 5 SORM 33 5 SORM 35 6 OTRI 22 6 OTRI 23 6 OTRI 24 6 OTRM 26 6 OTRM 27 6 OTRM 28 7 OTRM 26 8 OTRM 26
How do I do this properly. Thanks in advance. Noli