data <-
data.frame(
group=c("a","c","b","b","c","a"),
x=c("A","B","C", "D","E","F"),
y=c(3,2,10,11,4,5))
data$x = with(data, factor(x, levels=x[order(ave(y, group, FUN=min),y)]))
ggplot(data, aes(x, y, fill=group)) + geom_bar(stat='identity', position='dodge') +coord_flip()
网友评论