Perhaps, letters <- c("f","a", "j","i","d","e") a <- c(18,15,12,12,9,6) df <- data.frame(letters, a) library(lattice) barchart(reorder(df$letters, df$a) ~ df$a) -Lauri