library(data.table)
library(dplyr)
N <- 100
DT <- data.table(
id = sample(5, N, TRUE),
v1 = sample(5, N, TRUE),
v2 = sample(1e6, N, TRUE)
)
setmutate(DT, mean(v2), by = v1)
setmutate_(DT, setNames("mean(v2)", "v3"), by = "v1")
setmutate_(DT, setNames("mean(v2)", "v3"), i = "id==1", by = "v1")
Run the code above in your browser using DataLab