library(data.table)
train <- fread('../input/train.csv',nrows=25000)


hist(train[,hotel_cluster],breaks=100)

library(ggplot2)
ggplot(data = train) + 
  geom_point(mapping = aes(x =hotel_country , y =hotel_market , color = as.factor(hotel_cluster))) +
  xlab("hotel_country ") +
  ylab("hotel_market") + 
  ggtitle("cluster") +
  theme_bw()


library(ggplot2)
ggplot(data = train) + 
  geom_point(mapping = aes(x =hotel_country , y =srch_destination_type_id , color = as.factor(hotel_cluster))) +
  xlab("hotel_country ") +
  ylab("hotel_market") + 
  ggtitle("cluster") +
  theme_bw()