列表去重

假设现在有3个列表，
a = (1:4, 2,3)
b = (2：5, 1：3)
c=(4: 7, 1：4)
然后列表o = list(a, b, c),并且这三个列表是按行储存在列表o里的，这三个子列表是不等长的，但是c的长度最长为8。那么我现在如果想把每个子列表里面的重复值都去掉，并且替换为0，使每个子列表的长度都变成8，请高手指教下，谢谢。

before：
o = [ [ 1,2,3,4,2,3],
        [2,3,4,5,1,2,3],
        [4,5,6,7,1,2,3,4] ]

after：
p = [ [ 1,2,3,4,0,0,0,0],
        [2,3,4,5,1,0,0,0],
        [4,5,6,7,1,2,3,0] ]

1. o <-  list(a = c(1,2,3,4,2,3),
   
2.            b = c(2,3,4,5,1,2,3),
   
3.            c = c(4,5,6,7,1,2,3,4))
   
4. 
   
5. max_length <- max(sapply(o, length))
   
6. for (i in 1:length(o)) {
   
7.   length(o[[i]]) <- max_length
   
8.   o[[i]][is.na(o[[i]])] <- 0
   
9.   o[[i]][duplicated(o[[i]])] <- 0
   
10. }
    
11. 
    
12. o

复制代码

stzhao 发表于 2016-11-24 15:03

高手啊，我虽然没看懂，但就是我要的结果。
非常感谢！