[Hogfather]

А вот теперь самая мякотка. Защиты по специальностям в виде облака тэгов

Кандидатские диссертации 2012 и 2013


Докторские диссертации 2012 и 2013

Код R

png("wordscand.png", width=1000,height=500)
od<-par(mar=c(0,0,0,0),mfrow=c(1,2))
x<-subset(dissers,substr(date,7,10)=="2012" & TypeOfDisser=="КАНД")$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(8,0.5),min.freq=1,
          max.words=Inf, random.order=F, rot.per=.15, colors=pal2)

x<-subset(dissers,substr(date,7,10)=="2013" & TypeOfDisser=="КАНД")$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(8,0.5),min.freq=1,
          max.words=Inf, random.order=F, rot.per=.15, colors=pal2)
par(od)
dev.off()