R警告:条件的长度> 1,仅将使用第一个元素。外部功能

时间:2018-11-05 04:30:47

标签: r matrix text matching

我有以下两个功能:

name_fitting <- function(term1, term2)
  {
    if (nchar(term1) <= 3)
      {
       temp <- substring(term2, 1,nchar(term1))
       return(temp==term1)
      }
    else {return(grepl(term1, term2))}
  }

name_matching <- function(name1, name2)
  {
    name1 <- gsub('[[:punct:]]+','', name1)
    name2 <- gsub('[[:punct:]]+','', name2)
    if (length(intersect(as.character(unlist(strsplit(name1, ' '))), as.character(unlist(strsplit(name2, ' '))))) > 1) {return(TRUE)}
    if (length(intersect(as.character(unlist(strsplit(name1, ' '))), as.character(unlist(strsplit(name2, ' '))))) == 1) 
        {
          non_matching <- union(setdiff(as.character(unlist(strsplit(name1, ' '))), as.character(unlist(strsplit(name2, ' ')))), setdiff(as.character(unlist(strsplit(name2, ' '))), as.character(unlist(strsplit(name1, ' ')))))
          temp <- outer(X = non_matching, Y = non_matching, FUN = 'name_fitting')
          diag(temp)<-FALSE
          return(any(temp))
        }
    else(return(FALSE))
  }

name_fitting用于name_matching。 name_matching检查传递给函数的两个名称是否兼容,并返回TRUE或FALSE。

当我尝试如下匹配两个名称时:

name1<-"MARCO BRAMBILLA" 
name2<-"M BRAMBILLA BRANDUARDI"

我收到以下警告:

  

条件的长度> 1,并且仅使用第一个元素

指示外部函数未将数据正确传递给name_fitting。

我该如何解决?

2 个答案:

答案 0 :(得分:1)

您的函数传递了适合字符向量non_matching的名称,该向量包含三个元素:[1] "MARCO" "M" "BRANDUARDI"。此向量将传递到if调用if (nchar(term1) <= 3)。问题是nchar(term1) <= 3给出了一个长度为3的向量:[1] FALSE TRUE FALSE

当然,问题是您要在这里实现什么。如果要确定term1是否包含三个或更多元素,请将nchar替换为length。如果要查看non_matching的任何元素的长度是否小于3个字符,请将nchar()调用放在any()内。如果您仅尝试检查不匹配的第一个元素,请传递term1[1]而不是term1

答案 1 :(得分:0)

  

Vectorize(函数)

是解决方案:

name_fitting <- function(term1, term2)
  {
    if (nchar(term1) <= 3)
      {
       temp <- substring(term2, 1,nchar(term1))
       return(temp==term1)
      }
    else {return(grepl(term1, term2))}
  }
name_fitting <- Vectorize(name_fitting)

name_matching <- function(name1, name2)
  {
    name1 <- trimws(gsub('[[:punct:]]+','', name1))
    name2 <- trimws(gsub('[[:punct:]]+','', name2))
    temp <- intersect(as.character(unlist(strsplit(name1, ' '))), as.character(unlist(strsplit(name2, ' '))))
    temp <- temp[temp!=c('')]
    if (length(temp) > 1) {return(TRUE)}
    if (length(intersect(as.character(unlist(strsplit(name1, ' '))), as.character(unlist(strsplit(name2, ' '))))) == 1) 
        {
          non_matching <- union(setdiff(as.character(unlist(strsplit(name1, ' '))), as.character(unlist(strsplit(name2, ' ')))), setdiff(as.character(unlist(strsplit(name2, ' '))), as.character(unlist(strsplit(name1, ' ')))))
          non_matching <- non_matching[non_matching!=c("")]
          temp <- outer(X = non_matching, Y = non_matching, FUN = 'name_fitting')
          diag(temp)<-FALSE
          return(any(temp))
        }
    else(return(FALSE))
  }

name_matching <- Vectorize(name_matching)