library(lattice)

searches <- c(67.3, 20.3, 6.7, 4.1, 1.7)
labels <- c("Google", "Yahoo", "Microsoft", "Ask", "Others")
dataSearches <- data.frame(searches, labels)

dotplot(reorder(labels, searches) ~ searches, main = "US Share of Searches: March 2008",
xlab = "%", data = dataSearches, horizontal = TRUE, cex = 1.1)