data(scientometrics, package = "bibliometrixData")
topSO=sourceGrowth(scientometrics, top=1, cdf=TRUE)
topSO
# Plotting results
if (FALSE) {
install.packages("reshape2")
library(reshape2)
library(ggplot2)
DF=melt(topSO, id='Year')
ggplot(DF,aes(Year,value, group=variable, color=variable))+geom_line()
}
Run the code above in your browser using DataLab