group numerical and factor variables in a data.table

Question

I am attempting to group multiple numeric and factor columns of a data.table. Here is some data:

library(data.table)
dt <- structure(list(a = structure(c(8