data.table聚合与自定义函数返回命名列表

Question

我有以下数据表：

dt = data.table(x = 1:10, y = 11:20)

我希望使用自定义函数聚合两个列，该函数返回一个列表或统计数据向量，例如mean，sd等。所需的输出将是：

                x       y
1: Mean       5.5    15.5
2: SD     3.02765 3.02765

到目前为止，我已经获得了这个代码段：

dt[, lapply(.SD, function(x) {list('Mean' = mean(x), 'SD' = sd(x))}), .SDcols = c('x','y')]

生成统计数据，但我也希望根据列表中指定的行名称。