No trabalho de Thall e Vail (1990) é apresentado um conjunto de dados sobre a contagem de convulsões durante duas semanas em 59 epilépticos. O número de convulsões foi registrado durante um período inicial de 8 semanas e, em seguida, os pacientes foram aleatoriamente designados a um grupo de tratamento ou a um grupo de controle. Depois, foram registrados os contagens durante quatro períodos sucessivos de duas semanas. O conjunto de dados está disponível no pacote MASS do software R sob o nome epil.
Faça um diagrama de setores que mostre a proporção de indivíduos que fizeram parte do grupo de controle e os que foram submetidos ao tratamento (variável trt).
Faça um diagrama de setores que mostre a proporção de indivíduos que fizeram parte do grupo de controle e os que foram submetidos ao tratamento (variável trt).
Passo 1
O enunciado pede um diagrama de setores para a variável
trt
do conjunto de dados epil
(pacientes epilépticos) do pacote MASS. Queremos mostrar a proporção de indivíduos no grupo de controle (placebo) e no grupo de tratamento (progabide). O conteúdo abordado é geração de gráficos básicos no R usando funções como table
, prop.table
e pie
.Passo 2
Carregue o pacote e os dados no R:
library(MASS)
data(epil)
Passo 3
Conte quantos pacientes há em cada grupo:
counts <- table(epil$trt)
Isso retorna
e
.
Passo 4
Calcule as proporções relativas:
props <- prop.table(counts)
Ou seja,
Passo 5
Monte os rótulos com os percentuais:
labels <- paste\(0\)(names(props), "\n", round(\(100\)*props, \(1\)), "\%")
Isso gera algo como
Passo 6
Desenhe o diagrama de setores:
pie(props,
labels \(=\) labels,
col \(=\) c("lightblue", "salmon"),
main \(=\) "Proporção de grupos: placebo vs progabide")
Resposta
O gráfico de setores exibe dois segmentos, correspondendo a aproximadamente
dos pacientes no grupo placebo e
no grupo progabide.