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.
