将Bigram频率与Bigram令牌匹配多个列

Question

我有两个数据框，一个是带有bigram频率的频率列表：

F_bigrams <- structure(list(word_tag = c("it_PNP 's_VBZ", "do_VDB n't_XX0", 
                                         "that_DT0 's_VBZ", "you_PNP know_VVB", "i_PNP 'm_VBB", "i_PNP do_VDB", 
                                         "in_PRP the_AT0", "i_PNP 've_VHB", "'ve_VHB got_VVN", "i_PNP mean_VVB"
), Freq_bigr = c(31831L, 26273L, 21691L, 14157L, 14010L, 12904L, 
                 10994L, 10543L, 10089L, 9856L)), row.names = c(NA, -10L), class = c("tbl_df",                                                                                   "tbl", "data.frame"))

另一个包含bigram令牌：

df <- data.frame(
  bigr_1_2 = c("i_PNP 'm_VBB", NA, NA, NA),
  bigr_2_3 = c("it_PNP 's_VBZ", "'ve_VHB got_VVN", NA, NA),
  bigr_3_4 = c("you_PNP know_VVB", "it_PNP 's_VBZ", "'ve_VHB got_VVN", NA)
)

我想从频率列表中的frquencies f_bigrams与df 。我可以在df中没有问题，这是实际数据的微小片段，使用此base r方法：

df[, paste0("f_bigr_", 1:3, "_", 2:4)] <- sapply(df[, 1:3], function(x) F_bigrams$Freq_bigr[match(x, F_bigrams$word_tag)])

但是，在实际数据中，它具有更多列和半百万行，我始终获得数字2应该有na。这是为什么？而且，更重要的是，是否有一种的替代方法将频率与各自的Bigram代币匹配？

Answer 1

df %>%
  rowid_to_column() %>%
  pivot_longer(-rowid, values_to = 'word_tag', values_drop_na = TRUE) %>%
  left_join(F_bigrams) %>%
  pivot_wider(rowid, values_from = c(word_tag, Freq_bigr))

  rowid word_tag_bigr_1_2 word_tag_bigr_2_3 word_tag_bigr_3_4 Freq_bigr_bigr_1_2 Freq_bigr_bigr_2_3 Freq_bigr_bigr_3_4
  <int> <chr>             <chr>             <chr>                          <int>              <int>              <int>
1     1 i_PNP 'm_VBB      it_PNP 's_VBZ     you_PNP know_VVB               14010              31831              14157
2     2 NA                've_VHB got_VVN   it_PNP 's_VBZ                     NA              10089              31831
3     3 NA                NA                've_VHB got_VVN                   NA                 NA              10089