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

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 placebo=28 e progabide=31.

Passo 4

Calcule as proporções relativas:
props <- prop.table(counts)
Ou seja,
2859approx0,4746 e 3159approx0,5254

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 ,47,5% dos pacientes no grupo placebo e ,52,5% no grupo progabide.

Exercícios relacionados