使用 t()%*% "requires numeric/complex matrix/vector arguments" 时出现 R 错误消息

Question

我正在做一项社交网络分析任务，我需要从矩阵创建一个网络。我正在尝试创建一个矩阵，该矩阵显示哪些学生通过类他们有共同点或没有共同点（人对人矩阵）。我已将原始数据争吵到矩阵的第一次迭代中，现在想乘以矩阵。我的数据集和当前矩阵是下面的放大版本：

names <- c("Tom", "Dick", "And", "Harry")
class <- c("cs1", "cs2", "cs3", "cs1")
count <- c(1, 1, 0, 1)
df = data.frame (names, class, count)
df2 <- spread(df, "class", "count")

当我运行矩阵乘法代码时，我收到此错误消息：t(m) %*% m 错误：需要 numeric/complex matrix/vector 个参数。

m <- as.matrix(df2)
m2 <- t(m) %*% m

之前的 SO 问答建议矩阵需要包含数字或因子值，因此我添加了以下代码但我得到了相同的错误消息：

df2 %>% mutate_if(is.factor, as.character) -> df2
m <- as.matrix(df2)
m2 <- t(m) %*% m

如果有人能帮助我理解哪里出了问题/这里的错误信息是什么意思，我将不胜感激。谢谢！

P.S。对不起，丑陋的代码……R 的新手。

Answer 1

这可能有帮助：

# fill NA with 0
df2[is.na(df2)] <- 0

# make row names the names of the people
row.names(df2) <- df2$names
df2 <- df2[,-1]

m <- as.matrix(df2)
m2 <- t(m) %*% m

使用 t()%*% "requires numeric/complex matrix/vector arguments" 时出现 R 错误消息

R error message when using t()%*% "requires numeric/complex matrix/vector arguments"

transpose

r

matrix

social-networking

matrix-multiplication