背靠背小提琴图 r：按 2 个变量分组

如何解决背靠背小提琴图 r：按 2 个变量分组

嗨有 3 列数据（值，变量 [A，B，C] 和掩码 [是/否]），并且想在 Plotly 中做背靠背小提琴图，由三个变量（A,B 和 C) 并背靠背使用 Mask=Yes/No。如何使每个变量具有不同的颜色（例如红色、蓝色和绿色），但给 Mask 一个该颜色的色调？

a<-data.frame(value=runif(60),variable=rep(c(A,B,C),each=20),Mask=rep(c("Yes","No"),each=30))

a$group[15:25]="No" #To add variety



densDose<-a %>%
    plot_ly(type="violin") 
  
  densDose <- densDose %>%
    add_trace(orientation="h",#height=400,y = ~variable[a$Mask=="No"],x = ~value[a$Mask=="No"],split = ~variable[a$Mask=="No"],legendgroup = 'No',scalegroup = 'No',name = 'No',side = 'negative',#type = 'violin',Box = list(
              visible = F
            ),meanline = list(
              visible = T
            )
    )
  
  densDose<-densDose %>%
    add_trace(orientation="h",y = ~variable[a$Mask=="Yes"],x = ~value[a$Mask=="Yes"],split = ~variable[a$Mask=="Yes"],legendgroup = 'Yes',scalegroup = 'Yes',name = 'Yes',side = 'positive',meanline = list(
              visible = T
            )
    )

看起来像这样，它真的很薄，似乎为每个组和变量赋予了不同的颜色，这不是我想要的。例如