{"cells":[
 {
  "cell_type": "markdown",
  "metadata": {},
  "source": "What hotel clusters are chosen if children are present?"
 },
 {
  "cell_type": "code",
  "execution_count": null,
  "metadata": {
   "collapsed": false
  },
  "outputs": [],
  "source": "library(data.table)\nexpedia_train <- fread('../input/train.csv', header=TRUE, \n                       select= c(\"srch_children_cnt\", \"hotel_cluster\"),\n                       verbose = F)"
 },
 {
  "cell_type": "code",
  "execution_count": null,
  "metadata": {
   "collapsed": false
  },
  "outputs": [],
  "source": "result <- expedia_train[srch_children_cnt > 0, .N, by = hotel_cluster]\nsetkey(result, N)\nresult"
 },
 {
  "cell_type": "code",
  "execution_count": null,
  "metadata": {
   "collapsed": false
  },
  "outputs": [],
  "source": "library(ggplot2)\ntop_clusters <- result[(.N - 10):.N]\nsetkey(result, hotel_cluster)"
 }
],"metadata":{"kernelspec":{"display_name":"R","language":"R","name":"ir"}}, "nbformat": 4, "nbformat_minor": 0}