worldwide

datasci-2137 - if your data frame is called train you could do sth. like
train$Age <- round(train$Age, digits = 0)
train$AgeCount <- sapply(train$Age, function(x) length(which(train$Age == x)))