你的意思是last矩阵中两个学校间的 逗号，在aggregate 中改成中文的逗号吗？

意思是说 这里的逗号要一致##要注意中文输入的时候，逗号问题

你最好能附上 一段数据

应该不是逗号一致性的问题。last矩阵如下：
    X1                    X2        X3  X4                    X5        X6
1   Al          中国科技大学      2004 CCD 北京物资学院,人民大学 2001,2004
2   Al          中国科技大学      2004  De              北京大学      2001
3   Al          中国科技大学      2004  Er          中国科技大学      2005
4   Al          中国科技大学      2004  Fd     人民大学,清华大学 2000,2004
5   Al          中国科技大学      2004  Pl     人民大学,清华大学 2003,2007
6  CCD 北京物资学院,人民大学 2001,2004  De              北京大学      2001
7  CCD 北京物资学院,人民大学 2001,2004  Er          中国科技大学      2005
8  CCD 北京物资学院,人民大学 2001,2004  Fd     人民大学,清华大学 2000,2004
9  CCD 北京物资学院,人民大学 2001,2004  Pl     人民大学,清华大学 2003,2007
10  De              北京大学      2001  Er          中国科技大学      2005
11  De              北京大学      2001  Fd     人民大学,清华大学 2000,2004
12  De              北京大学      2001  Pl     人民大学,清华大学 2003,2007
13  Er          中国科技大学      2005  Fd     人民大学,清华大学 2000,2004
14  Er          中国科技大学      2005  Pl     人民大学,清华大学 2003,2007
15  Fd     人民大学,清华大学 2000,2004  Pl     人民大学,清华大学 2003,2007

如果你非要用 intersect 来做，要注意 intersect 返回的是一个向量，有可能会出现 [1] ”人大" "qinghua" ".."要变为一个字符串。paste(..collpase=)

我第一反应就是用intersect来做，还有其他方法么

简单点就是：

好吧。。。

问一下，如何将list转换成矩阵这种形式啊数据如下：
$`1`
  ID1 ID2      sch relation_time_1
1  Pl CCD 人民大学               0
2  Pl  Fd 人民大学               0

$`2`
  ID1 ID2      sch relation_time_1
1  Pl  Fd 清华大学               1

$`3`
  ID1 ID2          sch relation_time_1
1  Al  Er 中国科技大学               1

$`4`
[1] ID1             ID2             sch             relation_time_1
<0 行> (或0-长度的row.names)

$`5`
  ID1 ID2      sch relation_time_1
1 CCD  Fd 人民大学               0

$`6`
[1] ID1             ID2             sch             relation_time_1
<0 行> (或0-长度的row.names)

$`7`
[1] ID1             ID2             sch             relation_time_1
<0 行> (或0-长度的row.names)

$`8`
[1] ID1             ID2             sch             relation_time_1
<0 行> (或0-长度的row.names)
想变成
    ID1 ID2 sch relation_time_1
1  Pl CCD 人民大学               0
2  Pl  Fd 人民大学               0
3  Pl  Fd 清华大学               1
4  Al  Er 中国科技大学               1
5 CCD  Fd 人民大学               0

我举例你看看

你这个list应该可以合并掉。

可以用 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, ]

碉堡了 学习学习