使用R内置UCBAdmissions数据集时遭遇$运算符无效错误

错误原因 #

UCBAdmissions是R内置的三维列联表（数组类型），is.atomic(UCBAdmissions)返回TRUE说明它属于原子向量范畴。而$操作符仅支持递归对象（如数据框data.frame、列表list），直接用UCBAdmissions$Gender访问维度会触发$ operator is invalid for atomic vectors错误。

解决方案 #

方法1：转换为数据框后操作 #

先将列联表转换为长格式数据框，即可用$访问字段，再构建交叉表：

# 转换为数据框
ucb_df <- as.data.frame(UCBAdmissions)
# 构建Gender与Admit的交叉表，注意dnn与参数顺序对应
tb2 <- table(ucb_df$Gender, ucb_df$Admit, dnn = c("Gender", "Admit"))
tb2

方法2：直接对三维列联表做维度汇总 #

利用margin.table()忽略部门（Dept）维度，直接汇总Admit和Gender的交叉统计：

# 按第1、2维度（Admit、Gender）汇总
tb2 <- margin.table(UCBAdmissions, margin = c(1, 2))
# 调整维度名称（可选）
dimnames(tb2) <- list(Admit = dimnames(UCBAdmissions)[[1]], Gender = dimnames(UCBAdmissions)[[2]])
tb2

补充说明 #

原代码中dnn = c("Admit", "Gender")的顺序与table()参数顺序不匹配（table第一个参数对应行，第二个对应列），调整后才能保证维度名称正确对应。

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