我正在尝试计算每个美国县的平均年龄，并根据我的数据中每个年龄组的人口加权。
我的数据集如下所示：
state county age population
AL Autauga 1 2366
AL Autauga 2 3029
AL Autauga 3 3619
AL Autauga 4 3043
AL Autauga 5 3776
我正在尝试运行这样的东西：
agedata <- aggregate(data$age, list(data$state, data$county), weighted.mean(data$age, data$population))
每当我运行此命令时，我都会收到以下错误：
match.fun（FUN）出错：'weighted.mean（fulldata $ age， fulldata $ population）'不是函数，字符或符号