获取列的唯一值，并将唯一列中的每个值与data.table中的`by`相加

library(data.table)

# 加载数据表
dt <- data.table(col1 = c(1, 2, 3, 1, 2, 3),
                 col2 = c(4, 5, 6, 7, 8, 9),
                 by = c("A", "B", "A", "B", "A", "B"))

# 获取列的唯一值
unique_values <- unique(dt$col1)

# 对每个唯一值进行求和操作
sum_values <- lapply(unique_values, function(x) {
  subset_dt <- subset(dt, col1 == x)
  sum(subset_dt$by)
})

# 合并唯一值和求和结果
result <- data.table(unique_values, sum_values)