library(ggplot2)
df <- read.csv("http://sprunge.us/eRDB")

sapply(unique(df$host), function(host) {
    summary(df[df$host == host, ]$time)
})

##           [,1]   [,2]   [,3]   [,4]
## Min.    0.0000  0.115 0.0000 0.0961
## 1st Qu. 0.0269  0.155 0.0319 0.1370
## Median  0.0298  0.159 0.0341 0.1420
## Mean    0.0296  0.173 0.0349 0.1500
## 3rd Qu. 0.0319  0.168 0.0379 0.1510
## Max.    0.1050 29.400 0.0892 8.3100

ggplot(df, aes(time, fill = host)) + geom_bar(position = "dodge", binwidth = 0.1)

## Warning: position_dodge requires constant width: output may be incorrect