r - Unnest 返回错误“错误：不兼容的长度：27、26。”

Question

我试图在 for 循环中执行下面的函数，但不断收到错误“错误：不兼容的长度：27、26”。我该如何纠正？

to_string_1 <- function(x) { 
  z <- x %>%
    rename(fund_source_1 = 1) %>%
    unnest(fund_source_1, .drop = FALSE) %>% 
    group_by(name) %>% 
    summarise(
      fund_source_1 = toString(fund_source_1),
      name = as.character(name)) %>%
      distinct()
  return(z)
}

标签： rfunctionunnest