Я новичок в data.table
Как сделать то же самое с data.table
, используя rlang
?
library(tidyverse)
library(data.table)
gr <- "Species"
col <- "Petal.Length"
iris %>%
group_by(!!rlang::sym(gr)) %>%
summarise_at(vars(!!rlang::sym(col)),sum)
iris1 <- iris
setDT(iris1)
iris1[,sum(!!rlang::sym(col)),by=!!rlang::sym(gr)]