如何将每列除以最后一行

Question

dx <- data.table(A = rep(1:3, each = 5), B = rep(1:5, 3),
                 C = sample(15), D = sample(15))

我想按组A将每列除以最后一行。 我的代码是：

dx[, lapply(.SD, function(x) x/.N), by=A]

但它仅将所有列除以第一列中的最后一行。

提前