在没有数据或所需输出的草图的情况下，很难确切地知道您正在寻找什么（有6种不同的方法可以将四个小提琴中的两个带条纹），但在这里使用模式alpha似乎是最简单的解决方案：

ggplot(AdPluslong, aes(Eval, Total.Score)) +
  geom_violin_pattern(aes(fill = as.factor(TypeGroupe),
                          pattern_alpha = as.factor(TypeGroupe)),
                      pattern_density = 0.001,
                      pattern_angle = 45,
                      colour  = 'black') + 
  scale_fill_manual(values = c("#E69F00", "#56B4E9")) +
  scale_pattern_alpha_manual(values = c(1, 0))

使用数据

问题中没有包含数据，因此我推断其近似属性如下：

library(ggplot2)
library(ggpattern)

set.seed(1)

AdPluslong <- data.frame(Eval = rep(c('A', 'B'), 100),
                         Total.Score = rnorm(200),
                         TypeGroupe = rep(1:2, each = 100))