library(tidyverse)
words <- read_csv("https://goo.gl/a4xNwj")
words <- c(words$trans_english, words$trans_russian)
words <-sapply(words, function(x){unlist(strsplit(x, ",| "))[1]})

"e|u|i|o|a|у|е|ы|а|о|э|я|и|ю|ё"

## [1] "e|u|i|o|a|у|е|ы|а|о|э|я|и|ю|ё"

## Warning: Removed 4 rows containing missing values (geom_text).