r - Tensorflow 的嵌入问题：dimnames(x) <- dn 中的错误：“dimnames”[1] 的长度不等于数组范围

Question

我很难找到这个错误的来源：

“dimnames(x) <- dn 中的错误：'dimnames' [1] 的长度不等于数组范围”

该模型经过训练并且运行完美。但是当我需要提取嵌入时，我不知道出了什么问题。错误发生在最后一行。

谢谢！

这是代码：

embedding_matrix <- get_weights(model)[[1]]

words <- data_frame(
  word = names(tokenizer$word_index), 
  id = as.integer(unlist(tokenizer$word_index))
)

words <- words %>%
  filter(id <= tokenizer$num_words) %>%
  arrange(id)

row.names(embedding_matrix) <- c("UNK", words$word)

标签： rtensorflowembedding