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:
V1 V2 V3
red-j appearanceblood-n 105.032
red-j appearanceground-n 93.749
red-j appearancesea-n 102.167
red-j appearancesky-n 10.898
orange-j appearanceobject-n 109.354
orange-j as_adj_aspainting-n 93.248
orange-j colorbanknote-n 159.167
orange-j colorcar-n 117.985
yellow-j appearanceskin-n 109.527
yellow-j areacircle-n 87.064
yellow-j areainfarction-n 120.759
yellow-j as_adj_ascorn-n 219.739
yellow-j as_adj_asflax-n 122.576
yellow-j as_adj_asgold-n 90.814
green-j appearancewater-n 91.477
green-j architecturebuilding-n 103.582
green-j architecturecourse-n 103.325
green-j areaRio-n 106.614
green-j areaauditorium-n 102.505
green-j areacity-n 150.005
blue-j appearancecypress-n 145.133
blue-j appearancefirmament-n 148.655
blue-j appearanceman-n 85.731
blue-j appearancerange-n 90.706
blue-j appearancesurface-n 100.991
blue-j areagraph-n 92.708
blue-j arealibrary-n 77.135
purple-j appearanceleave-n 119.423
purple-j appearancelesion-n 134.287
purple-j colorViking-n 145.516
purple-j coloramethyst-n 175.619
purple-j colorbanknote-n 158.045
purple-j colorbottle-n 132.395
purple-j colorchocolate-n 141.833
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?
Thank you!!!
Marianna
--
View this message in context:
http://r.789695.n4.nabble.com/contingency-tables-tp4478204p4478204.html
Sent from the R help mailing list archive at Nabble.com.
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
On Mar 16, 2012, at 9:46 AM, mari681 wrote:> 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: > > V1 V2 V3 > red-j appearanceblood-n 105.032 > red-j appearanceground-n 93.749 > red-j appearancesea-n 102.167 > red-j appearancesky-n 10.898 > orange-j appearanceobject-n 109.354 > orange-j as_adj_aspainting-n 93.248 > orange-j colorbanknote-n 159.167 > orange-j colorcar-n 117.985 > yellow-j appearanceskin-n 109.527 > yellow-j areacircle-n 87.064 > yellow-j areainfarction-n 120.759 > yellow-j as_adj_ascorn-n 219.739 > yellow-j as_adj_asflax-n 122.576 > yellow-j as_adj_asgold-n 90.814 > green-j appearancewater-n 91.477 > green-j architecturebuilding-n 103.582 > green-j architecturecourse-n 103.325 > green-j areaRio-n 106.614 > green-j areaauditorium-n 102.505 > green-j areacity-n 150.005 > blue-j appearancecypress-n 145.133 > blue-j appearancefirmament-n 148.655 > blue-j appearanceman-n 85.731 > blue-j appearancerange-n 90.706 > blue-j appearancesurface-n 100.991 > blue-j areagraph-n 92.708 > blue-j arealibrary-n 77.135 > purple-j appearanceleave-n 119.423 > purple-j appearancelesion-n 134.287 > purple-j colorViking-n 145.516 > purple-j coloramethyst-n 175.619 > purple-j colorbanknote-n 158.045 > purple-j colorbottle-n 132.395 > purple-j colorchocolate-n 141.833 > > 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??xtabs aRealTable <- xtabs(V3 ~ V1+V2, data=MyTable)>-- David Winsemius, MD West Hartford, CT