---
title: "Experiments in Visualising the data"
author: "Jerry Thomas"
date: "05 June 2016"
output: html_document
---

# Which hotel type will an Expedia customer book?

```{r}
library(ggplot2) # Data visualization
library(readr) # CSV file I/O, e.g. the read_csv function
```

Input data files are available in the "../input/" directory.

For example, running this (by clicking run or pressing Shift+Enter) will list the files in the input directory

```{r}
system("ls ../input", intern=TRUE)
train <- read.csv(file="../input/train.csv",nrows=100)
str(train)

```

# User Locations 

```{r}
p <- ggplot(train, aes(user_location_country, hotel_country))
p + geom_point(aes(size=cnt,colour = factor(hotel_country)))

```