Hello,
Many thanks for your responses! They were very helpful.
FYI, ggplot didn't work for me because I needed the sum of the values.
The fudged option of barplot was very helpful. Since my matrix is extremely
large (the example is a subset), and I would need to take a lot of time to
insert NAs everywhere as you did, I used the main idea you sent but instead did
summed over group sizes. I'm sure this is far from the most efficient way of
doing this, but it was the only way I found for my very large matrix.
Thanks again!!
Here is my solution:
#-----------------------------------------------------------------------------------------------------------------------------------------
.Table<-data.frame(Sex=c("M","F","M","F","F"), Number=c(10,3,1,2,3),
Group_size=c(1,1,2,2,2))
#I separated the females first, and ordered them by group size
Females<-subset(.Table, Sex=="F")
.Order<-order(Females$Group_size)
FemalesF<-rbind(Females$Group_size, Females$Number)[,.Order]
FemalesF<-t(FemalesF)
#I then deleted any NAs which I had in my database, then summed Number for each
Group_size and converted it to a matrix
Females1 <- FemalesF[complete.cases(FemalesF[,2]),]
Females2<-by(FemalesF,FemalesF[,1], FUN = function(x){
sum(x[,2]) })
Females3<-matrix(Females2)
#I then did the same for the males
Males<-subset(.Table, Sex=="M")
.Order<-order(Males$Group_size)
MalesF<-rbind(Males$Group_size, Males$Number)[,.Order]
MalesF<-t(MalesF)
Males1 <- MalesF[complete.cases(MalesF[,2]),]
Males2<-by(MalesF,MalesF[,1], FUN = function(x){
sum(x[,2]) })
Males3<-matrix((Males2))
#I then followed your example in forming a matrix of males and females suitable
for barplot and plotted the data
.Matrix<-matrix(c(Females3,Males3),ncol=2)
.Matrix<-t(.Matrix)
barplot(.Matrix,col=c("pink","lightblue"),
names.arg=c(1:3),xlab="Group size",ylab="Number",main="Group Sex")
legend(10,60,c("Male","Female"),fill=c("lightblue","pink"))
#----------------------------------------------------------------------------------------------------------------------------
Chandra
________________________________
From: Jim Lemon [mailto:j...@bitwrit.com.au]
Sent: Tue 3/22/2011 5:55 PM
To: Chandra Salgado Kent
Cc: r-help@r-project.org
Subject: Re: [R] stacked bar plot
On 03/22/2011 06:30 PM, Chandra Salgado Kent wrote:
> Hello,
>
>
>
> I'm wondering if someone may be able to help me, and do apologize if there is
> a simple and obvious solution for this. I am somewhat new to R, and have been
> searching for a simple solution for a couple of days.
>
>
>
> I am interested in finding a tool that allows me to plot a stacked bar plot.
>
>
>
> My data set is in the following format:
>
> data<-data.frame(Sex=c("M","F","M","F","F"), Number=c(10,3,1,2,3),
> Group_size=c(1,1,2,2,2))
>
>
>
> I would like to have the factor "Sex" stacked, "Group size" as a Factor on
> the X axis, and "Number" on the Y axis (summed so that there is only one
> value for each Sex by Group_size combination).
>
Hi Chandra,
It's a bit hard to work out exactly what you want, but try this:
barplot(matrix(c(10,3,NA,1,2,3),ncol=2),col=c("lightblue","pink","pink"),
names.arg=1:2,xlab="Group size",ylab="Number",main="Group Sex")
legend(1.6,8,c("Male","Female"),fill=c("lightblue","pink"))
now I have fudged a bit by just making the matrix contain the values in
the right order, but if the barplot is what you want, it could get you
started.
Jim
[[alternative HTML version deleted]]
______________________________________________
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.
