Error in `mutate()`: ℹ In argument: `textrank.key = map(hire_words$word_tag, extract_keywords)`. Caused by error in `map()`: ℹ In index: 1. ℹ With name: text. Caused by error in `keywords()`: ! argument "jiebar" is missing, with no default Run `rlang::last_trace()` to see where the error occurred.

根据你提供的错误信息，问题出在`keywords()`函数上，因为它需要一个参数`jiebar`，但是该参数没有默认值。建议检查一下`keywords()`函数的定义，看看它需要哪些参数，然后在调用该函数时，确保传递了所有必要的参数。

根据你的代码，`keywords()`函数是在`extract_keywords()`函数中被调用的，所以需要检查该函数的定义。你可以使用以下代码来查看`extract_keywords()`函数的定义：

# 查看函数定义
extract_keywords

在函数定义中检查`keywords()`函数的参数，确保传递了所有必要的参数。如果是缺少`jieba`参数导致的错误，那么你需要在调用`keywords()`函数时，传递一个`jieba`参数。例如，你可以像下面这样修改`extract_keywords()`函数：

# 修改 extract_keywords() 函数
extract_keywords = function(dt){
  textrank_keywords(dt$word, relevant = str_detect(dt$tag, "^n"), ngram_max = 2) %>% 
    keywords(jieba = wk)   # 添加 jieba 参数
}

修改后的函数将在调用`keywords()`函数时，传递一个`jieba`参数，从而避免出现缺少参数的错误。