install.packages("foreign")
library(foreign)
dados <- read.dta("C:/Users/Paulo/Desktop/regime_politico.dta")
attach(dados)

barplot(democracia, main="Gráfico 1. Democracia no Mundo", xlab="Países", ylab="Democracia", ylim=c(0,10))

p<-tapply(democracia,regiao,mean)

barplot(p, col=c("green","blue","red","black","purple","yellow","orange"), main="Gráfico 2. Média Democrática por Região do Mundo", xlab="Regiões do Mundo", ylab= "Democracia ", ylim=c(0,10))  

colors()

barplot(p, names.arg=F, main="Gráfico 3. Democracia por Região do Mundo", col=c("green","blue","red","black","purple","yellow", "grey", "orange"), legend= rownames(p), beside=T, horiz=T, axes=T, sub="Fonte: Estatistica I", cex.main=1.5, col.main=" tomato3", xlim=c(0,10))

t<-tapply(pib,regiao,mean)
pie(t, main="Gráfico 4. PIB per Capita por Região do Mundo", col=c("green","blue","red","black","purple","yellow", "grey", "orange"), sub="Fonte: Estatística I", cex.main=2.5, col.main="darkblue")

library(plotrix) 
pie3D(t, main="Gráfico 5. PIB per Capita por Região do Mundo", col=c("green","blue","red","black","purple","yellow", "grey", "orange"), explode=0.1,cex.main=1.0, col.main="tomato")

porc<-round(t*100/sum(t),2)
rotulos<-paste("(",porc,"%)",sep="")
pie(t, main="Gráfico 6. PIB per Capita por Região do Mundo",labels=rotulos, col=rainbow(8))
legend(1,1,names(t),col = rainbow(8),pch=rep(15,5))

hist(pib, main="Gráfico 7. Histograma do PIB/capita (US$) no Mundo", xlab="PIB/capita", ylab="Frequência", sub="Fonte: Estatística I")

h<-hist(pib, breaks=10, col="red", xlab="PIB/capita US$", ylab="Frequência", main="Gráfico 8. Histograma PIB/capita Mundo com Curva Normal")
xfit<-seq(min(pib),max(pib),length=159) 
yfit<-dnorm(xfit,mean=mean(pib),sd=sd(pib)) 
yfit <- yfit*diff(h$mids[1:2])*length(pib) 
lines(xfit, yfit, col="blue", lwd=2)

library(foreign)
brasil <- read.dta("C:/Users/Paulo/Desktop/brasil.dta")
attach(brasil)

boxplot(analf, desemp, pobres, names=c("Analfabetismo(%)", "Desemprego (%)", "Pobreza (%)"), main="Gráfico 9. BoxPlot Analfabetismo, Desemprego e Pobreza nas UFs do Brasil", ylab="Porcentagem", border="black", col=rainbow(3))