如何在循环中调用函数来计算R中的加权交叉表

# 定义一个计算加权交叉表的函数
weighted_cross_table <- function(data, weights, x, y) {
  table(data[, x], data[, y], useNA = "ifany") * data[, weights]
}

# 创建一个样本数据集
data <- data.frame(
  x = c("A", "B", "A", "C", "B"),
  y = c("M", "M", "F", "F", "F"),
  weights = c(0.5, 0.3, 0.2, 0.7, 0.4)
)

# 定义加权交叉表结果的空矩阵
result <- matrix(0, nrow = 2, ncol = 3)

# 定义需要计算加权交叉表的变量
x_var <- "x"
y_var <- "y"
weights_var <- "weights"

# 循环调用函数来计算加权交叉表
for (i in 1:length(levels(data[, x_var]))) {
  for (j in 1:length(levels(data[, y_var]))) {
    # 根据循环变量的取值，提取相应的子数据集
    subset_data <- subset(data, data[, x_var] == levels(data[, x_var])[i] & 
                            data[, y_var] == levels(data[, y_var])[j])
    # 调用函数计算加权交叉表并更新结果矩阵
    result[i, j] <- sum(weighted_cross_table(subset_data, weights_var, x_var, y_var))
  }
}

# 打印结果
print(result)