R语言自定义聚合函数开发：分组均值计算及数据处理问题

我最近在写一个主打聚合、合并、子集化数据集的函数，先给大家看看我的原始数据框：

# 原始数据集
data <- data.frame(
  NameA = c("A", "B", "C", "D", "E"),
  NameB = c("F", "F", "F", "G", "G"),
  NameC = c("K", "L", "M", "N", "O"),
  Score1 = c(3, 5, 7, 2, 5),
  Score2 = c(3, 5, 4, 2, 8)
)

我打算用这个函数调用方式来测试：test <- Fun(data, Score1, NameB)

首先我想实现的核心功能是按NameB分组，计算Score1的均值，目前写的函数代码是这样的：

library(data.table) # 需提前加载data.table包
Fun <- function(df, col, group_by){
  setDT(df)
  df1<- df[, sapply(.SD, mean), .SDcols = col, by= group_by]
}

不过在补充了额外编码后，我的数据框变成了NameA Nam...（后续处理的完整内容尚未完善）

内容的提问来源于stack exchange，提问作者Mr369