# Baixe os dados CompanhiaMB.txt da WIKI e leia do diretório com read.table


 dados<-read.table("d:\\dados\\CompanhiaMB.txt", header=TRUE)

 attach(dados) 	# Anexa os dados

 table(estado_civil) # Frequências absolutas

 table(estado_civil)/nrow(dados) # Frequências relativas

 barplot(table(estado_civil)) # Gráfico de barras

 pie(table(estado_civil)) # Gráfico de setores

 hist(salario) # Histograma

 hist(salario, col=2, main="Histograma de salário") # Histograma com cor

 hist(salario, col=2)

 boxplot(salario, main="Boxplot de salário")

 boxplot(salario, main="Boxplot de salário", col=3)

 boxplot(salario ~ estado_civil, main="Boxplots de salário")

 plot(idade_anos, salario) # Gráficos de dispersão

 abline(lm(salario~idade_anos)) # Reta de regressão linear simples


 # Gráficos em 3 linhas e 1 colunas

 par(mfrow=c(3,1))

 boxplot(salario, main="Boxplot de salário", col=2)

 hist(salario, col=4)

 plot(density(salario))