Подправил код, указал в явном виде русский в команде Corpus. Иначе сжирало буквы "ч" и "я"
Добавлено через 1 час 11 минут
А вот несколько иная задача. Нас интересует конкретное слово -- "оптимизация" .
Ну, неравнодушен я к нему. Будем отбирать специальности. Подвох в том, что синтаксический разбор тут делать нельзя, но можно воспользоваться несколькими недокументированными трюками.
Код:
x<-subset(dissers,grepl("оптимизац",tolower(diser)))$Nspec
z<-summary(x,maxsum=1000)
od<-par(mar=c(0,0,0,0))
pal2 <- brewer.pal(8,"Dark2")
wordcloud(names(z),z, scale=c(6,0.2),min.freq=2,
max.words=Inf, random.order=FALSE, rot.per=.15, colors=pal2)
Результат забавный, никогда не думал, что оптимизацией занимается медицина