GraficosSetores | bioestatistica

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)))

Bioestatística