在R中的函数中使用两个分组变量聚合变量

我正试图写一个函数，它将给我提供按年龄和国家划分的人口的简单描述性统计数据

以下是我的数据示例：

popcount = 200:250
sex = rep(c("M", "F"), 25)
country = rep(c("NZ", "Aus", "Fiji", "PNG", "Samoa"), 10)

为了获得聚合，我指定了以下函数

Aggregate_fun <- function(pop, ag1, ag2) {
popbylist <- data.frame(aggregate(pop, by = list(ag1, ag2)), FUN=sum)
return(popbylist)
}

---

Aggregate\u fun看起来好像在聚合函数中放错了括号，将“fun”放在了聚合之外。此外，popcount有51个值，而其他两个只有50个值。下面的代码正在做我认为您希望做的事情

popcount = 201:250
sex = rep(c("M", "F"), 25)
country = rep(c("NZ", "Aus", "Fiji", "PNG", "Samoa"), 10)

Aggregate_fun <- function(pop, ag1, ag2) {
  popbylist <- data.frame(aggregate(pop, by = list(ag1, ag2), FUN=sum))
  return(popbylist)
}

Gend_Country <- Aggregate_fun(pop = popcount, ag1 = sex, ag2 = country)

popcount=201:250
性别=代表（c（“M”，“F”），25）
国家=代表（c（“新西兰”、“澳大利亚”、“斐济”、“巴布亚新几内亚”、“萨摩亚”），10）
Aggregate_fun看起来好像在聚合函数中放错了括号，将“fun”放在了聚合函数之外。此外，popcount有51个值，而其他两个只有50个值。下面的代码正在做我认为您希望做的事情

popcount = 201:250
sex = rep(c("M", "F"), 25)
country = rep(c("NZ", "Aus", "Fiji", "PNG", "Samoa"), 10)

Aggregate_fun <- function(pop, ag1, ag2) {
  popbylist <- data.frame(aggregate(pop, by = list(ag1, ag2), FUN=sum))
  return(popbylist)
}

Gend_Country <- Aggregate_fun(pop = popcount, ag1 = sex, ag2 = country)

popcount=201:250
性别=代表（c（“M”，“F”），25）
国家=代表（c（“新西兰”、“澳大利亚”、“斐济”、“巴布亚新几内亚”、“萨摩亚”），10）
聚餐乐趣