R 带网络包的Sankey图出现错误

我正试图用以下代码创建一个Sankey图

diagram <- SUBSET01%>% 
  dplyr::mutate(Poverty = dplyr::if_else(Poverty==1, "poor", "not poor")) %>% 
  dplyr::transmute(id_nmbr, yr_interview, Poverty = paste(Poverty, yr_interview, sep = "_"))

links <- diagram %>%
  tidyr::pivot_wider(names_from = yr_interview, values_from = Poverty) %>% 
  dplyr::rename(source = `2018`, target = `2019`)

nodes <- data.frame(name = unique(c(links$source, links$target))) %>% 
  tidyr::separate(name, into = c("group", "year"), sep = "_", remove = FALSE)

links$id_nmbrsource <- match(links$source, nodes$name)-1 
links$id_nmbrtarget <- match(links$target, nodes$name)-1
links$value <- 10

sn <- sankeyNetwork(Links = links,
                    Nodes = nodes,
                    NodeID = "name",
                    Source = "id_nmbrsource",
                    Target = "id_nmbrtarget",
                    NodeGroup = "group",
                    Value = "value")
sn 

图表%
dplyr:：mutate（Poverty=dplyr:：if_else（Poverty==1，“poor”，“not poor”））%>%
dplyr:：transmute（id\u nmbr，yr\u访谈，Poverty=paste（Poverty，yr\u访谈，sep=“”））
链接%
tidyr:：pivot\u wider（姓名来自=采访，价值来自=贫困）%>%
dplyr:：rename（source=`2018`，target=`2019`）
节点%
tidyr:：separate（名称，into=c（“组”、“年”），sep=“”，remove=FALSE）
链接$id\u nmbr来源