benchmark({
  key_to_lookup <- select_random_key()
  time(data[which(data$col1 == key_to_lookup),])
})

##     min     max    mean 
## 0.09200 0.15800 0.10471