You can do this using only xtabs. Using Rui's data.frame, d: x <- xtabs(Count~Live+Age, d)
barplot(x, beside=T, legend.text=TRUE, args.legend=list(x="topleft")) ---------------------------------------------- David L Carlson Associate Professor of Anthropology Texas A&M University College Station, TX 77843-4352 > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-bounces@r- > project.org] On Behalf Of Rui Barradas > Sent: Wednesday, July 18, 2012 4:24 PM > To: darnold > Cc: r-help@r-project.org > Subject: Re: [R] Entering Data Files > > Hello, > > Sorry, I forgot the barplot. > > > dmelt <- melt(d, id.vars=c("Live", "Age"), measure.vars="Count") > wide <- dcast(Live ~ Age, data = dmelt) > > col <- rainbow(4) > barplot(as.matrix(wide[, 2:5]), beside=T, col=col) > legend("topleft", wide[, 1], fill=col) > > > Hope this helps, > > Rui Barradas > > Em 18-07-2012 22:19, Rui Barradas escreveu: > > Hello, > > > > Install package 'reshape2' and try the following. > > > > > > #install.packages('reshape2') > > library(reshape2) > > > > d <- read.table(text=" > > Live Age Count > > Parents Age19 324 > > Another Age19 37 > > OwnPlace Age19 116 > > Group Age19 58 > > Other Age19 5 > > Parents Age20 378 > > Another Age20 47 > > OwnPlace Age20 279 > > Group Age20 60 > > Other Age20 2 > > Parents Age21 337 > > Another Age21 40 > > OwnPlace Age21 372 > > Group Age21 49 > > Other Age21 3 > > Parents Age22 318 > > Another Age22 38 > > OwnPlace Age22 487 > > Group Age22 25 > > Other Age22 9 > > ", header=TRUE, stringsAsFactors=FALSE) > > d > > > > dmelt <- melt(d, id.vars=c("Live", "Age"), measure.vars="Count") > > dcast(Live ~ Age, data = dmelt) > > > > > > Hope this helps, > > > > Rui Barradas > > > > Em 18-07-2012 21:35, darnold escreveu: > >> Hi, > >> > >> Entering data from a given file is the hardest part of learning R > for me. > >> For example, I have this datafile from Moore's text: > >> > >> Live Age Count > >> Parents Age19 324 > >> Another Age19 37 > >> OwnPlace Age19 116 > >> Group Age19 58 > >> Other Age19 5 > >> Parents Age20 378 > >> Another Age20 47 > >> OwnPlace Age20 279 > >> Group Age20 60 > >> Other Age20 2 > >> Parents Age21 337 > >> Another Age21 40 > >> OwnPlace Age21 372 > >> Group Age21 49 > >> Other Age21 3 > >> Parents Age22 318 > >> Another Age22 38 > >> OwnPlace Age22 487 > >> Group Age22 25 > >> Other Age22 9 > >> > >> I can manually enter the numbers and create my table and barplot. > >> > >> x <- matrix(c(324, 378, 337, 318, 37, 47, 40, 38, 116, 279, 372, > 487, 58, > >> 60, 49, 25, 5, 2, 3, 9), c(5,4),byrow=T) > >> rownames(x)=c("Parents","Another","OwnPlace","Group","Other") > >> colnames(x)=c("Age19","Age20","Age21","Age22") > >> x <- as.table(x) > >> > >> barplot(x,beside=T) > >> > >> But it would be nice to be able to read the data from the file, > >> arrange it > >> using R, then plot, if that is possible. Any suggestions? > >> > >> Thanks > >> > >> David > >> > >> > >> > >> -- > >> View this message in context: > >> http://r.789695.n4.nabble.com/Entering-Data-Files-tp4636943.html > >> Sent from the R help mailing list archive at Nabble.com. > >> > >> ______________________________________________ > >> 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. > >> > > > > ______________________________________________ > > 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. > > ______________________________________________ > 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. ______________________________________________ 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.