我正在做一个社交网络分析任务,我需要从一个矩阵中创建一个网络。我正在尝试创建一个矩阵,该矩阵显示学生通过他们共有的或不共同的课程联系在一起的内容(人-人矩阵)。我已经将原始数据放入矩阵的第一次迭代中,现在想要将矩阵相乘。我的数据集和当前矩阵是以下内容的更大版本:
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")
当我运行矩阵乘法代码时,我得到这个错误消息: error in t(m) %*%m:需要数字/复数矩阵/向量参数。
m <- as.matrix(df2)
m2 <- t(m) %*% m
前面的SO问题和答案Matrix multiplication in R: requires numeric/complex matrix/vector arguments建议矩阵需要包含数值或因子值,所以我添加了以下代码,但我得到了相同的错误消息:
df2 %>% mutate_if(is.factor, as.character) -> df2
m <- as.matrix(df2)
m2 <- t(m) %*% m
如果有人能帮助我理解我哪里出错了/这里的错误消息是什么意思,我将不胜感激。谢谢!
附言:对于丑陋的代码…,很抱歉R的新手。
发布于 2017-12-14 09:29:12
这可能会有所帮助:
# 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
https://stackoverflow.com/questions/47804518
复制相似问题