library(ggplot2)
library(readr)
library(dplyr)


train = read_csv('../input/train.csv')

train %>%
    sample_frac(0.01) %>%
    ggplot(aes(x=place_id)) +
    geom_density()