Plots for report 3

plots_report3.R

anos <- c(2011,2012,2013,2014,2015)

fator1 <- c(24,27,33,25,14)
fator2 <- c(43,50,67,43,18)

eigen1 <- c(30,37,37,40,42)
eigen2 <- c(98,118,117,121,123)

dados1 <- data.frame(anos,fator1,eigen1)
dados2 <- data.frame(anos,fator2,eigen2)
par(mfrow=c(1,2))

plot(dados1$fator ~ dados1$anos,t='o',xlab='',ylab='',col='red',pch = 21, ylim=c(0,120),las=1)
lines(dados1$eigen ~ dados1$anos,col='blue',t='o',pch = 21)
title(sub="(a) Computer Science, Artificial Intelligence")
legend("top",legend = c("Impact","Eigen"),lty=c(1,1),pch=c(1,1),col=c("blue","red"),cex = 0.75)

plot(dados2$fator ~ dados2$anos,t='o',xlab='',ylab='',col='red',pch = 21, ylim=c(0,120),las=1)
lines(dados2$eigen ~ dados2$anos,col='blue',t='o',pch = 21)
title(sub="(b) Engineering, Electrical & Electronic")
legend("bottom",legend = c("Impact","Eigen"),lty=c(1,1),pch=c(1,1),col=c("blue","red"),cex = 0.75)