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...
Parâmetros gráficos: a função par()
Configurando as margens de um gráfico
Função expression()
Configurações das margens nos gráficos
Para os exemplos a seguir, clicar aqui para abrir o banco de dados em formato Excel.
# Função par()
par("mar") # bottom, left, top, and right
[1] 5.1 4.1 4.1 2.1
par(mar=c(5.1, 4.1, 4.1, 2.1)) # Default
# Seja o gráfico de dispersão:
IMC <- Peso/(Altura^2)
plot(Idade,IMC,bty="l",pch=19)
# Modifique os valores em mar=c() e veja o resultado.
par(mar=c(5.1, 4.1, 4.1, 2.1))
Configurando a posição dos labels
par("mgp")
[1] 3 1 0
# O primeiro valor diz respeito à localização dos labels (xlab e ylab)
# O segundo valor diz respeito à posição dos valores nos eixos
# O terceiro valor diz respeito à posição das escalas nos eixos
par(mar=c(5.1, 4.1, 4.1, 2.1),mgp=c(3,1,0)) # Default
Configurando a orientação dos valores nos eixos
par("las")
[1] 0
par(mar=c(5.1, 4.1, 4.1, 2.1),mgp=c(3,1,0),las=0) # Default
# las = 0: os valores aparecerão paralelos aos eixos (default)
# las = 1: horizontal
# las = 2: perpendicular
# las = 3: vertical
Legendas com caracteres subscritos ou sobrescritos
par(mar=c(5.1, 4.1, 4.1, 2.1),mgp=c(3,1,0),las=0) # Default
plot(Idade,IMC,bty="l",pch=19)
plot(Idade,IMC,bty="l",pch=19,ylab=expression(paste("IMC (kg/m"^2,")")))
par(mar=c(5.1, 5.1, 4.1, 2.1),mgp=c(3,1,0),las=0)
plot(Idade,IMC,bty="l",pch=19, ylab=expression(paste("IMC (kg/m"^2,")")),xlab="Idade (anos)")
# Subscrito
plot(Idade,IMC,bty="l",pch=19, ylab=expression(paste("IMC (kg/m"[2],")")),xlab="Idade (anos)")
Legendas com caracteres em itálico ou negrito
# Itálico
plot(Idade,IMC,bty="l",pch=19,ylab=expression(paste("IMC (kg/m"^2,")")),
xlab=expression(italic("Idade (anos)")))
# Negrito
plot(Idade,IMC,bty="l",pch=19,ylab=expression(paste("IMC (kg/m"^2,")")),
xlab=expression(bold("Idade (anos)")))
# Modificando o tamanho das legendas
plot(Idade,IMC,bty="l",pch=19,ylab=expression(paste("IMC (kg/m"^2,")")),
xlab=expression(bold("Idade (anos)")), cex.lab=1.75)
Inserindo uma equação na área de plotagem
plot(Idade,IMC,bty="l",pch=19,ylab=expression(paste("IMC (kg/m"^2,")")),xlab="Idade (anos)")
text(58,45, expression(IMC==over(kg,m^2)))
Legendas com a função mtext()
plot(Idade,IMC,bty="l",pch=19,ylab=expression(paste("IMC (kg/m"^2,")")),xlab="")
mtext(side=1,line=3,"Idade (anos)")
# Negrito ou itálico (1=plain, 2=bold, 3=italic, 4=bold-italic)
plot(Idade,IMC,bty="l",pch=19,ylab=expression(paste("IMC (kg/m"^2,")")),xlab="")
mtext(side=1,line=3,"Idade (anos)",font=2)
Outros parâmetros gráficos
plot(Idade,IMC) # Gera o gráfico com os parâmetros "padrões" do R
par(bty="l",pch=19) # Modifica os padrões
# Em seguida, todos os gráficos gerados considerarão estes padrões
plot(Idade,IMC)
# Modificando a cor do fundo
par(bty="l",pch=19,bg="yellow")
plot(Idade,IMC)
par() # Exibe como os parâmetros gráficos estão definidos
dev.off() # Fecha o gráfico atual e restaura os parâmetros gráficos padrões do R