Bioestatística
Prof. Dr. Edson Zangiacomi Martinez
Faculdade de Medicina de Ribeirão Preto
Universidade de São Paulo (USP)
Esta página está em construção!
Todo seu conteúdo não é definitivo...

Gráfico de setores
Inserindo legendas na figura
Modificando cores
Gráficos de setores
Gráficos de barras são gerados com a função pie()
Para os exemplos a seguir, clicar aqui para abrir o banco de dados em formato Excel.
table(esaude)
pie(table(ecivil),main="(b) Estado civil ",col=topo.colors(4),cex=1.7)

# Substituindo as legendas por porcentagens
pie(table(ecivil),labels = prop.table(table(ecivil)), col=terrain.colors(4),main="Estado civil")
# Figura mais adequada
pie(table(ecivil),labels = paste(100*prop.table(table(ecivil)),"%"),col=terrain.colors(4), main="Estado civil")
# Inserindo uma legenda
legend("topright", names(table(ecivil)), cex = 1.2, fill=terrain.colors(4), bty="n")

# Outra forma de legenda
lab <- paste(names(table(ecivil)),100*prop.table(table(ecivil)), "%")
pie(table(ecivil), labels = lab, col=topo.colors(4), main="Estado civil",lty=0)

# Figura em tons de cinza:
nm<-c("Casada","Divorciada","Solteira","Viúva")
lab<-paste(nm,100*prop.table(table(ecivil)),"%")
pie(table(ecivil), labels = lab, main="Estado civil", lty=1, col=gray(seq(0.4, 1.0, length = 4)))
