Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
26 lines (13 sloc) 670 Bytes
# Стратегия Татарстан 2030
library("pdftools")
strategy<-pdftools::pdf_text("Стратегия 2030.pdf")
strategy_dataframe<-as.data.frame(strategy)
library(devtools)
install_github("cbail/textnets", force=TRUE)
library(textnets)
strategy_dataframe$page<-rownames(strategy_dataframe)
strategy_nets <- PrepText(strategy_dataframe, textvar = "strategy", groupvar="page", node_type="words", tokenizer = "words", pos = "nouns", remove_stop_words = TRUE, compound_nouns = TRUE)
str(strategy_nets)
out<-strategy_nets[strategy_nets$count>=1,]
strategy_network <- CreateTextnet(out)
VisTextNet(strategy_network, label_degree_cut = 0, alpha=.05)
You can’t perform that action at this time.