如何将与data.frame单元格一起使用的函数应用于data.frame列

此问题是对以前的问题的修改，我觉得我以不清楚的方式提出了问题。我正在检查列V1和V2是否按行排列公共代码。代码以正斜杠“/”分隔。下面的函数应该从V1中获取一个单元格，并从同一行的V2中获取一个单元格，并将其转换为向量。矢量的每个元素都是一个代码。然后函数应该检查所获得的两个向量是否有共同的元素。这些元素最初是4位数字代码。如果有两个向量匹配的4位代码，函数应该返回4.如果没有共同的元素，函数应该减少每个代码的位数，然后再次检查。每次函数减少数字位数时，它也会降低最后返回的分数。我希望函数返回的值写在我选择的列中。如何将与data.frame单元格一起使用的函数应用于data.frame列

这是我的出发条件

structure(list(ID = c(2630611040, 2696102020, 2696526020), V1 = c("7371/3728", 
"2834/2833/2836/5122/8731", "3533/3541/3545/5084"), V2 = c("7379", 
"3841", "3533/3532/3531/1389/8711")), .Names = c("ID", "V1", 
"V2"), class = "data.frame", row.names = c(NA, 3L)) 

     ID      V1      V2 
1 2630611040    7371/3728      7379 
2 2696102020 2834/2833/2836/5122/8731      3841 
3 2696526020  3533/3541/3545/5084 3533/3532/3531/1389/8711

而且我想获得这个

  ID      V1      V2 V3 
1 2630611040    7371/3728      7379 3 
2 2696102020 2834/2833/2836/5122/8731      3841 0 
3 2696526020  3533/3541/3545/5084 3533/3532/3531/1389/8711 4

我的功能是本

coderelat<-function(a, b){ 

a<-unique(as.integer(unlist(str_split(a, "/")))) #Transforming cells into vectors of codes 
b<-unique(as.integer(unlist(str_split(b, "/")))) 

a<-a[!is.na(a)] 
b<-b[!is.na(b)] 

if (length(a)==0 | length(b)==0) { # Check that both cells are not empty 

    ir=NA  
    return(ir) 

    } else { 


for (i in 3:1){ 

    diff<-intersect(a, b) # See how many products the shops have in common 

      if (length(diff)!=0) { #As you find a commonality, give ir the corresponding scoring 

       ir=i+1 
       break 

      } else if (i==1 & length(diff)==0) { #If in the last cycle, there is still no commonality put ir=0 

       ir=0 
       break 

      } else { # If there is no commonality and you are not in the last cycle, reduce the nr. of digits and re-check commonality again 

       a<- unique(as.integer(substr(as.character(a), 1, i))) 
       b<- unique(as.integer(substr(as.character(b), 1, i))) 

     } 

    }  
    } 
return(ir) 
}

起步控制功能时，我手动提供单个细胞。

df$V4<-coderelat(df$V1, df$V2)

我真的很感激任何帮助，因为我不知道怎么了，以使这项工作：但是，当我写soemthing这样是行不通的。

非常感谢提前。 Riccardo

来源

2014-11-20 Riccardo

使用'dput（...）'提供您的数据非常有用（+1）。 – jlhoward 2014-11-20 21:40:21

这是一个使用data.tables的解决方案。

get.match <-function(a,b) { 
    A <- unique(strsplit(a,"/",fixed=TRUE)[[1]]) 
    B <- unique(strsplit(b,"/",fixed=TRUE)[[1]]) 
    for (i in 4:1) if(length(intersect(substr(A,1,i),substr(B,1,i)))>0) return(i) 
    return(0L) 
} 
library(data.table) 
setDT(df)[,V3:=get.match(V1,V2),by=ID] 
df 
#   ID      V1      V2 V3 
# 1: 2630611040    7371/3728      7379 3 
# 2: 2696102020 2834/2833/2836/5122/8731      3841 0 
# 3: 2696526020  3533/3541/3545/5084 3533/3532/3531/1389/8711 4

来源

2014-11-20 21:37:17 jlhoward

这是一个很好的答案！非常感谢，真的。我有两个问题需要澄清你的解决方案。首先，你能否在get.match的第二行和第三行结尾解释[[1]]？其次，如果A = NA，那么函数做什么？非常感谢！ – Riccardo 2014-11-20 22:23:41

'strsplit（...）'创建角色扮演者列表。在你的情况下，该列表只有一个元素，所以我们提取使用'[[1]]'。 – jlhoward 2014-11-20 22:27:52

如何将与data.frame单元格一起使用的函数应用于data.frame列

回答

相关问题