用R中另一个矩阵的值填充一个矩阵

初始矩阵如下所示：

1 A 1
1 B 1
1 C 1
2 A 1
3 A 1
3 C 1

必须牢记：

  A B C
1 1 1 1
2 1 0 0
3 1 0 1

我使用的代码如下：

for (i in 1:length(t_data$cid)) {
  t_cid <- t_data$cid[i]
  t_val <- t_data$eventAction[i]
  df_events[grep(t_cid, df_events$cid),grep(paste0("^",t_val,"$"), colnames(df_events))] <- 1
  print(i)
}

但是我们在第一个矩阵中讨论了超过一百万行，在第二个矩阵中讨论了一百列。5分钟内大约10万排，太慢了。请帮忙。

我想xtabs会有帮助的

> as.data.frame.matrix(xtabs(V3 ~ ., df))
  A B C
1 1 1 1
2 1 0 0
3 1 0 1

资料

---

如果您创建一个小的可复制的示例以及预期的输出，那么会更容易提供帮助。了解。看看这个@ThomaslsCoding，你是最棒的！！！

> dput(df)
structure(list(V1 = c(1L, 1L, 1L, 2L, 3L, 3L), V2 = c("A", "B", 
"C", "A", "A", "C"), V3 = c(1L, 1L, 1L, 1L, 1L, 1L)), class = "data.frame", row.names = c(NA,   
-6L))