library(ggplot2)

df <- read.csv("drush-usage-without-options.csv", row.names = NULL, colClasses = c("character", 
    "factor", "factor", "factor", "character"))

df$date <- as.POSIXct(as.numeric(df$date), origin = "1970-01-01")

cmd.histogram <- as.data.frame(summary(df$cmd))
cmd.histogram$cmd <- rownames(cmd.histogram)
names(cmd.histogram)[1] <- "frequency"

ggplot(subset(cmd.histogram, frequency > 2000), aes(reorder(cmd, frequency), 
    frequency)) + geom_bar() + coord_flip()

ggplot(subset(cmd.histogram, frequency < 2000 & frequency > 200), aes(reorder(cmd, 
    frequency), frequency)) + geom_bar() + coord_flip()

ggplot(subset(cmd.histogram, frequency < 200), aes(reorder(cmd, frequency), 
    frequency)) + geom_bar() + coord_flip()