# No in-built R function for this, create custom function:
getmode <- function(v) {
uniqv <- unique(v)
uniqv[which.max(tabulate(match(v, uniqv)))]
}
library(DescTools)
Mode(name)
# make sure to inculde this libirary before you use the function
# install if necessary
# name is the dataset's name you want to get it's mode
find_mode <- function(x) {
u <- unique(x)
tab <- tabulate(match(x, u))
u[tab == max(tab)]
}