# NOT RUN {
data(scientometrics, package = "bibliometrixData")
topKW=KeywordGrowth(scientometrics, Tag = "ID", sep = ";", top=5, cdf=TRUE)
topKW
# Plotting results
# }
# NOT RUN {
install.packages("reshape2")
library(reshape2)
library(ggplot2)
DF=melt(topKW, id='Year')
ggplot(DF,aes(Year,value, group=variable, color=variable))+geom_line
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab