使用unique函数,MARGIN=2它将返回一个删除了重复列的矩阵,默认情况下,unique删除重复的行:
unique
MARGIN=2
unique(six, MARGIN = 2) # [,1] [,2] [,3] [,4] [,5] [,6] #[1,] 2 1 1 1 1 1 #[2,] 2 2 3 1 1 1 #[3,] 1 1 1 1 2 3 #[4,] 1 2 1 3 2 1