如何将公式应用于R中行中的每个组？

# 创建一个示例数据框
df <- data.frame(group = c("A", "A", "B", "B", "C", "C"),
                 value = c(1, 2, 3, 4, 5, 6))

# 定义要应用的公式
my_formula <- function(x) {
  # 在这里定义你的公式，例如计算平均值
  mean(x)
}

# 使用apply()函数将公式应用于每个组
result <- tapply(df$value, df$group, my_formula)

# 创建一个示例数据框
df <- data.frame(group = c("A", "A", "B", "B", "C", "C"),
                 value = c(1, 2, 3, 4, 5, 6))

# 定义要应用的公式
my_formula <- function(x) {
  # 在这里定义你的公式，例如计算平均值
  mean(x)
}

# 获取唯一的组名
groups <- unique(df$group)

# 创建一个空向量来存储结果
result <- numeric(length(groups))

# 使用for循环逐个处理每个组
for (i in 1:length(groups)) {
  group <- groups[i]
  subset <- df$value[df$group == group]
  result[i] <- my_formula(subset)
}