DT[complete.cases(DT),]
n() -> .N
# Mutate
DT <- DT[,`:=`(a= mean(x), b=sd(y),.(group_var1, group_var2)]
# Summarize
DT <- DT[,.(a= mean(x), b=sd(y),.(group_var1, group_var2)]
DT[, rnk:=frank(order_var), .(group_var)]
# descending
DT[, rnk:=frank(-order_var), .(group_var)]
DT[, col:=NULL]