Question

我有一个由4个向量组成的10000个字母的小标题。我使用tidyr中的crossing函数进行小标题编辑，这给了我所有可能的4个字母的组合。我想找到英文单词，所以我认为需要阅读英文词典才能找到英文单词的所有4个字母的组合。

我已经搜索过Google。

library (tidyr)
a <- c('s', 'd', 'r',' h', 't', 'f', 'b', 'l', 'p', 'm')
b <- c('l', 'e', 'h', 'r', 'y', 'n', 'u', 'a', 'i', 'o')
c <- c('k', 'o', 'a', 't', 'e', 'l', 'n', 'i', 'r', 's')
d <- c('a', 'n', 't', 'e', 'p', 'y', 'l', 'd', 's', 'k')

lock <- crossing (a,b,c,d)

瞥见（锁定）观察值：10,000 变量：4

我想要我可以检查的英语组合列表。

Answer 1

使用-

library(dplyr)
library(qdapDictionaries)
df <-  crossing (a,b,c,d) %>%
        mutate(x=paste(a,b,c,d, sep="")) %>%
        filter(x %in% GradyAugmented)

您显然可以将GradyAugmented替换为qdapDictionaries中的任何其他单词列表（拉起?qdapDictionaries以查看完整列表），也可以将其替换为任何其他软件包/自定义列表中的列表

> head(df)
# A tibble: 6 x 5
  a     b     c     d     x    
  <chr> <chr> <chr> <chr> <chr>
1 b     a     a     l     baal 
2 b     a     a     s     baas 
3 b     a     i     l     bail 
4 b     a     i     t     bait 
5 b     a     k     e     bake 
6 b     a     l     d     bald

英文字母的组合，是10,000种可能组合中的英文单词

1 个答案: