[R data.table为一组行

Question

的更新类型列表的列假设我们有以下data.table：

> a <- data.table(id=(1:3), val=vector("list",length(3))) 
> a$val <- list(c("a","b"),c("c","d","e"),c("f","e")) 
> a 
    id val 
1: 1 a,b 
2: 2 c,d,e 
3: 3 f,e 

我们现在要从列删除元素“E”“VAL”在“ID” 2和3 行我能一起实现这一点：

> for (x in c(2,3)) { 
    a[id==x, val := list(list(val[[1]][ val[[1]] != 'e']))] 
    } 
> a 
    id val 
1: 1 a,b 
2: 2 c,d 
3: 3 f 

怎么可以这样的东西做过类似

a[id %in% c(2,3), ..] ? 

Answer 1

function_remove<-function(x,y){ 
    if (y %in% c(2,3)){ 
    x<-x[[1]] 
    list(x[x!="e"]) 
    } else{ 
    x 
    } 
} 

a[,list(function_remove(val,id)),by=1:nrow(a)] 
    nrow V1 
1: 1 a,b 
2: 2 c,d 
3: 3 f 

或者，你可以这样做：

function_remove_1<-function(x){ 
    x[x!="e"] 
} 
a[id %in% c(2,3),]$val<-lapply(a[id %in% c(2,3),val],function_remove_1) 

最后（如下建议），我们还可以通过参考更新：

a[id %in% c(1,2), val := lapply(val, function(x) x[x!="e"])]