Комбинации английских букв, которые являются английским словом из 10 000 возможных комбинаций [дубликаты]

У меня есть набор из 10000 букв из 4 векторов. Я сделал табличку, используя функцию пересечения в тайдыре, которая дала мне все возможные комбинации из 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

Мне нужен список комбинаций на английском языке, которые я могу изучить.


r combinations computation
person JuanTamad    schedule 25.12.2018    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Использовать -

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
person Vivek Kalyanarangan    schedule 25.12.2018
comment
Спасибо. Я пытаюсь открыть велосипедный замок wordlock, который купил много лет назад, и не могу вспомнить комбинацию. - person JuanTamad; 25.12.2018