我有两组（对照组和实验组）的预测试和后测试数据。我计算了分数，现在想说明组和测试之间的差异。作为基础，我在 R 中有一个数据框，其中包含每个学生的预测试和后测试结果的一行：
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
我写了下面的代码
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
生产
是否可以将灰色小提琴改为治疗组的分布（蓝色），并且我可以在前测和后测的左侧添加第二半小提琴形状来描绘控制分布（红色）？