Le vendredi 16 mars 2012 à 06:46 -0700, mari681 a écrit :
> Ok, before I definetly give up, and throw the laptop out of the window, or
> fill my data.frame manually, I'll ask for some help.
> I have a data.frame named MyTable with 3 columns, that looks like this:
<snip>
> The elements on the first column can be: red-j, orange-j, yellow-j, green-j,
> blue-j or purple-j. Elements on column 2 are contexts in which the color
> appears. And in column 3 there is a kind of frequency measurement between
> color and context.
>
> I am trying to build a new data.frame where the 6 colors in column 1 are
> placed as column names, all the unique contexts in column 2 are placed as
> row names and the values on column 3 are in the correspondent cells (or 0 if
> an intersection color-context is empty).
> Easy to prepare the empty data.frame, but I cant find out how to fill it up
> with the frequencies.
> Ideas? Anybody has a ready script for this?
If I understand correctly, this is very simple using xtabs().
dat <- structure(list(V1 = structure(c(5L, 5L, 5L, 5L, 3L, 3L, 3L, 3L,
6L, 6L, 6L, 6L, 6L, 6L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Label = c("blue-j",
"green-j", "orange-j", "purple-j", "red-j", "yellow-j"), class =
"factor"),
V2 = structure(c(1L, 4L, 10L, 12L, 8L, 27L, 29L, 31L, 11L,
18L, 21L, 24L, 25L, 26L, 14L, 15L, 16L, 23L, 17L, 19L, 2L,
3L, 7L, 9L, 13L, 20L, 22L, 5L, 6L, 33L, 28L, 29L, 30L, 32L
), .Label = c("appearanceblood-n", "appearancecypress-n",
"appearancefirmament-n", "appearanceground-n", "appearanceleave-n",
"appearancelesion-n", "appearanceman-n", "appearanceobject-n",
"appearancerange-n", "appearancesea-n", "appearanceskin-n",
"appearancesky-n", "appearancesurface-n", "appearancewater-n",
"architecturebuilding-n", "architecturecourse-n",
"areaauditorium-n",
"areacircle-n", "areacity-n", "areagraph-n", "areainfarction-n",
"arealibrary-n", "areaRio-n", "as_adj_ascorn-n", "as_adj_asflax-n",
"as_adj_asgold-n", "as_adj_aspainting-n", "coloramethyst-n",
"colorbanknote-n", "colorbottle-n", "colorcar-n",
"colorchocolate-n",
"colorViking-n"), class = "factor"), V3 = c(105.032, 93.749,
102.167, 10.898, 109.354, 93.248, 159.167, 117.985, 109.527,
87.064, 120.759, 219.739, 122.576, 90.814, 91.477, 103.582,
103.325, 106.614, 102.505, 150.005, 145.133, 148.655, 85.731,
90.706, 100.991, 92.708, 77.135, 119.423, 134.287, 145.516,
175.619, 158.045, 132.395, 141.833)), .Names = c("V1", "V2",
"V3"), class = "data.frame")
xtabs(V3 ~ V2 + V1, data=dat)
BTW, creating the data frame took me the most time, so please provide a
working data set using dput() next time.
Regards
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
