FUN中的错误（X [[i]]，...）：object＆＃39; PPARENT_ID＆＃39;未找到

Question

我有几个列的订单数据。我的任务是映射具有扩展名的订单并将其存储在新列＆＃34; PPARENT_ID＆＃34;列。

我已经编写了以下用于映射订单的代码。

library(purrr)
find_parent <- function(ID,`Extention of`){
  if(is.null(`Extention of`)){
    return(ID)
  }else{
    ptnt <- mis$`Extention of`[mis$ID==`Extention of`]
    return(find_parent(`Extention of`,ptnt ))
  }
}
mis$PPARENT_ID<- map2_chr(mis$ID, mis$`Extention of`, find_parent)
mis %>% select(PPARENT_ID)

当我运行mis％＆gt;％select（PPARENT_ID）命令时，它会抛出错误

  

＆＃34; FUN中的错误（X [[i]]，...）：object＆＃39; PPARENT_ID＆＃39;找不到＆＃34;

请帮我解决问题。