R语言矩阵计算

可以用 expand.grid  来做

data <- data.frame(ID=c("A", "B", "C"), x = c("abc", "cba", "abc"))

ids <- expand.grid(1:nrow(data), 1:nrow(data))
ids <- ids[ids[, 1]>ids[, 2], ]
id1 <- ids[, 2]
id2 <- ids[, 1]
result <- data.frame(ID1=data$ID[id1], ID2=data$ID[id2], result=(data$x[id1]==data$x[id2]))

data <- data.frame(ID=c("A", "B", "C"), x = c("abc", "cba", "abc"))

compare <- c(outer(data$x, data$x, "=="))
ID1 <- rep(1:nrow(data), each = nrow(data))
ID2 <- rep(1:nrow(data), times = nrow(data))
result <- data.frame(ID1 = data$ID[ID1], ID2=data$ID[ID2], compare)[ID1 < ID2, ]

碉堡了 学习学习