clicks_train <- read.csv("../input/clicks_train.csv")

train_sort <- clicks_train[order(clicks_train$ad_id),]
train_agreegate <- as.data.frame(table(train_sort$ad_id))
names(train_agreegate) <- c("ad_id","total_count")
nrow(train_agreegate)