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...
Particionando gráficos
Função split.screen()
Função layout()
Particionando gráficos
Seja o seguinte banco de dados, que inclui a idade (age) e pressão arterial sistólica (SBP) de 30 indivíduos.
urlfile <- "https://raw.githubusercontent.com/edsonzmartinez/cursoR/main/idadepressao.csv"
w <- read.csv(urlfile,head=TRUE,sep=";",dec=",")
id age SBP
1 39 144
2 47 220
3 45 138
4 47 145
5 65 162
6 46 142
7 67 170
8 42 124
9 67 158
10 56 154
11 64 162
12 56 150
13 59 140
14 34 110
15 42 128
16 48 130
17 45 135
18 17 114
19 20 116
20 19 124
21 36 136
22 50 142
23 39 120
24 21 120
25 44 160
26 53 158
27 63 144
28 29 130
29 25 125
30 69 175
Fonte: http://people.sc.fsu.edu/~jburkardt/datasets/regression/x03.txt
# Usando a função split.screen()
split.screen(c(1,2))
[1] 1 2
screen(1)
boxplot(w$age)
screen(2)
boxplot(w$SBP)
close.screen(all=T)
# Usando a função layout()
layout(matrix(1:4,2,2,byrow=T))
boxplot(w$age, main="(a) Idade", ylab="Anos", las=1)
boxplot(w$SBP, main="(b) Pressão arterial sistólica", ylab="mmHg", las=1)
plot(w$age,w$SBP, main="(c) Idade e Pressão arterial sistólica",bty="l", xlab="Idade (anos)", ylab="Pressão arterial sistólica (mmHg)", las=1)
hist(w$age, main="(d) Histograma, Idade", las=1, xlab="Idade (anos)")
# Usando a função layout(), 3 linhas e 2 colunas
layout(matrix(1:6,3,2,byrow=T))
layout.show(6)
# Usando a função layout(), 2 linhas e 3 colunas
layout(matrix(1:6,2,3,byrow=T))
layout.show(6)
# Usando a função layout(), outro exemplo
m <- matrix(c(1:3,3),2,2)
m
[,1] [,2]
[1,] 1 3
[2,] 2 3
layout(m)
layout.show(3)
plot(w$age)
plot(w$SBP)
boxplot(w$age)
# Usando a função layout(), outro exemplo
m <- matrix(c(1,2,2,3),1)
layout(m)
layout.show(3)
boxplot(w$age, main="age")
plot(w$age,w$SBP)
boxplot(w$SBP, main="SBP")
# Usando a função layout(), outro exemplo
m<-c(
1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
1, 1, 1, 5, 5, 5, 5, 2, 2, 2,
1, 1, 1, 5, 5, 5, 5, 2, 2, 2,
3, 3, 3, 5, 5, 5, 5, 4, 4, 4,
3, 3, 3, 5, 5, 5, 5, 4, 4, 4,
3, 3, 3, 3, 3, 4, 4, 4, 4, 4,
3, 3, 3, 3, 3, 4, 4, 4, 4, 4,
3, 3, 3, 3, 3, 4, 4, 4, 4, 4)
layout(matrix(m,ncol=10,byrow=TRUE))
layout.show(5)
x <- rnorm(100)
y <- x + rnorm(100)
par(bg = "aliceblue", mar=c(5.1, 4.1, 4.1, 2.1))
boxplot(x)
plot(x,type="l")
plot(x,y)
hist(x)
hist(y)
rect(par("usr")[1], par("usr")[3], par("usr")[2], par("usr")[4], col = "#f7f7f7")
par(new = TRUE)
hist(y)
Pacote esquisse
# Usando o pacote esquisse
install.packages("esquisse")
library(esquisse)
library(plotly)
w|> esquisser()
# Após editar a figura, usar:
library(ggplot2)
# Inserir o código