if (FALSE) {
data(management, package = "bibliometrixData")
years=c(2004,2008,2015)
nexus <- thematicEvolution(management,field="DE",years=years,n=100,minFreq=2)
plotThematicEvolution(nexus$Nodes,nexus$Edges)
}
Run the code above in your browser using DataLab