It is a little complicate for me to transform the table. Hope it works for
you.

x <- read.table(textConnection("Johnson     4    
Smith        4
Smith        2
Smith        3
Garcia       1
Garcia       4
Rodriguez   2
Adams       2
Adams       3
Adams       4
Turner       4
Turner       3 "),header=F)
## sort data
x<-x[order(x[,1],-x[,2]),]
## add another column to be the index used for reshape
x$times<-sequence(rle(as.character(x[,1]))$lengths)

y <- t(reshape(x, timevar="times", idvar="V1", direction="wide"))
colnames(y)<-y[1,]

barplot(y[-1,],col=27:29)

-----
A R learner.
-- 
View this message in context: 
http://r.789695.n4.nabble.com/Help-Creating-a-Stacked-Bar-Chart-with-Color-Coding-tp2305487p2306464.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.

Reply via email to