Início / coding / Perguntas / 78914014
Accepted
TheGeekGreek
Asked: 2024-08-26 18:54:10 +0800 CST

Gráfico de meio violino com diferentes fatores em R

  • 772

Tenho dados de um pré e pós-teste em dois grupos: controle e tratamento. Calculei a pontuação e agora quero ilustrar as diferenças entre grupos e testes. Como base tenho um data frame em R contendo para cada aluno uma linha com os resultados do pré e do pós-teste:

student_id  group       test_id  Score
145         Treatment   pre      0.12
145         Treatment   post     0.78
109         Control     pre      0.45
109         Control     post     0.99

Eu escrevi o seguinte código

s2$test_id <- as.factor(s2$test_id)
s2$group <- as.factor(s2$group)

p <- ggplot(s2, aes(x = test_id, y=score, fill = group)) + geom_violinhalf(trim=FALSE, fill="gray")+
  labs(title="Half Violin",x="Test", y = "Score")+
  geom_boxplot(width=0.1)+
  theme_classic() + scale_x_discrete(limits = rev)
p

produzindo

meio_violino

É possível que o violino cinza possa ser transformado na distribuição do grupo de tratamento (azul) e que eu possa adicionar uma segunda forma de violino à esquerda do pré e pós-teste representando a distribuição de controle (vermelho)?

1 respostas

  1. Best Answer

    Você pode usar a mesma variável de agrupamento usada para os boxplots internos e geom_violinhalf, em seguida, usar o flipargumento para inverter os corretos:

    library(ggplot2)
library(see)

ggplot(s2, aes(test_id, Score, fill = group)) +
  geom_boxplot(width = 0.1, position = position_dodge(0.2)) +
  geom_violinhalf(aes(group = interaction(test_id, group)), fill = 'gray',
                  trim = FALSE, flip = c(1, 2)) +
  theme_classic(16)

    insira a descrição da imagem aqui

    Dados usados ​​com base na estrutura fornecida no snippet em questão

    set.seed(1)

s2 <- data.frame(student_id = rep(sample(500, 50), 2),
                 group = rep(sample(c('Treatment', 'Control'), 50, TRUE), 
                             each = 2),
                 test_id = rep(c('pre', 'post'), 50),
                 Score = runif(100))
    • 6

relate perguntas