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...
![](https://static.wixstatic.com/media/1a84a3_f4864653484844559fc862ff5a560d75~mv2.jpg/v1/fill/w_149,h_88,al_c,q_80,usm_0.66_1.00_0.01,enc_avif,quality_auto/1a84a3_f4864653484844559fc862ff5a560d75~mv2.jpg)
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)
![](https://static.wixstatic.com/media/1a84a3_ecddc60315834444a3d149b509c9e5e6~mv2.jpeg/v1/fill/w_284,h_249,al_c,q_80,usm_0.66_1.00_0.01,enc_avif,quality_auto/1a84a3_ecddc60315834444a3d149b509c9e5e6~mv2.jpeg)
# 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")
![](https://static.wixstatic.com/media/1a84a3_54ff7860b10f4e128559b31d2833f1d0~mv2.jpeg/v1/fill/w_304,h_267,al_c,q_80,usm_0.66_1.00_0.01,enc_avif,quality_auto/1a84a3_54ff7860b10f4e128559b31d2833f1d0~mv2.jpeg)
# 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)
![](https://static.wixstatic.com/media/1a84a3_6cabd2447e3c4df696f01ab73d3e5f0c~mv2.jpeg/v1/fill/w_296,h_260,al_c,q_80,usm_0.66_1.00_0.01,enc_avif,quality_auto/1a84a3_6cabd2447e3c4df696f01ab73d3e5f0c~mv2.jpeg)
# 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)))
![](https://static.wixstatic.com/media/1a84a3_9ed92d7a26714ab0b8adf5da92e76d0f~mv2.jpeg/v1/fill/w_299,h_263,al_c,q_80,usm_0.66_1.00_0.01,enc_avif,quality_auto/1a84a3_9ed92d7a26714ab0b8adf5da92e76d0f~mv2.jpeg)