你遇到的这个报错，核心原因是**aggregate()的FUN参数需要接收一个函数对象，而你直接传入了weighted.mean()的执行结果**——这是一个具体的数值，不是函数，所以R会提示你“这不是函数、字符或符号”。下面给你两种可行的解决方法：

方法一：修正aggregate()的用法 #

你需要把weighted.mean作为函数传递给FUN，同时通过额外参数传递权重列。正确的写法如下：

# 假设你的数据集名为data
agedata <- aggregate(
  list(weighted_age = data$age),  # 指定要计算的变量，并给结果列命名
  by = list(state = data$state, county = data$county),  # 分组依据
  FUN = weighted.mean,  # 指定使用加权平均函数
  weights = data$population  # 传递权重参数给weighted.mean
)

这段代码会自动按state和county分组，对每个组的age列用对应的population列作为权重计算加权平均，最终输出包含州、县、加权平均年龄的结果集。

方法二：用dplyr包更简洁地实现 #

如果你经常处理数据分组计算，推荐使用dplyr包，它的语法更直观易读：

# 先安装并加载dplyr（如果没安装过的话）
install.packages("dplyr")
library(dplyr)

# 计算加权平均年龄
agedata <- data %>%
  group_by(state, county) %>%  # 按州和县分组
  summarise(
    weighted_age = weighted.mean(age, population),
    .groups = "drop"  # 计算完成后取消分组
  )

验证示例数据 #

用你提供的示例数据测试：

# 构造示例数据
data <- data.frame(
  state = rep("AL", 5),
  county = rep("Autauga", 5),
  age = 1:5,
  population = c(2366, 3029, 3619, 3043, 3776)
)

运行上述代码后，会得到Autauga县的加权平均年龄约为3.18，和手动计算的结果一致。

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