attach(mundo)

plot(pobreza, `ajuda externa_capita`, main="Gráfico 10. Dispersão entre Pobrez e Recepção de Ajuda Externa no Mundo", xlab="Pobreza(%)", ylab="Ajuda Externa/capita(US$)", sub="Fonte: Banco Mundial (2017)", ylim=c(0,300))

plot(empregados_agricultura, expectativa_vida, main="Gráfico 11. Dispersão entre Empregados na Agricultura e Expectativa de vida no mundo", xlab="Empregados na Agricultura(%)", ylab="Expectativa de Vida (anos)", sub="Fonte: Banco Mundial (2017)", col=rainbow(190), pch=20)

abline(lm(expectativa_vida ~ empregados_agricultura), col="red")

plot(empregados_agricultura, expectativa_vida, main="Gráfico 12. Dispersão entre Empregados na Agricultura e Expectativa de vida no mundo", xlab=" Empregados na Agricultura(%)", ylab="Expectativa de Vida (anos)", sub="Fonte: Banco Mundial (2017)", xlim=c(0,85), ylim=c(50,85))

text(empregados_agricultura, expectativa_vida, labels=id, cex=0.6, pos=3, col="red")

require(lattice)
library(lattice)
xyplot(empregados_agricultura ~ expectativa_vida, groups=micro_regiao, data=mundo, xlab="Empregos na Agricultura (%)", ylab="Expectativa de Vida", main="Gráfico 13. Agricultura versus Vida do Mundo com Legenda", jitter.x=F, auto.key=list(space="right", columns=1), par.settings=list(superpose.symbol=list(pch=15:17, col=1:16, cex=0.8)))  

pairs(~populacao_crescimento+pib_crescimento+pesquisa_pib+gasto_militar, main="Gráfico 14. Matriz da Dispersão entre, Crescimento Populacional, Crescimento Econômico, Gastos Militares e Gastos em Pesquisa")

install.packages("car")
library(car)
scatterplot(empregados_agricultura ~ expectativa_vida | macro_regiao, data=mundo, xlab="Empregos na Agricultura", ylab="Expectativa de Vida", main="Gráfico 16")

install.packages("scatterplot3d") 
library(scatterplot3d)
scatterplot3d(`agricultura_%_pib`, `exportacoes_%_pib`, tecnologia_exportacoes, main="Gráfico 17. Dispersão 3D", xlab="Agricultura/PIB", ylab="Exportações/PIB", zlab="Tecnologia/Exportações")  

plot(density(`energia_limpa_%pop`, bw=1, na.rm=TRUE), col="darkblue", xlab="Porcentagem de Energia Limpa", main="Gráfico 18. Densidade do Uso de Energia Limpa por país (%)", ylab="Densidade de Kernell")