为分组的箱线图提供Alpha底纹/透明度

Question

下面是用于创建从https://www.r-graph-gallery.com/265-grouped-boxplot-with-ggplot2.html获得的分组箱线图的代码。

如果可能的话，我如何使每个处理组具有相同的颜色，而第二组则具有更透明的颜色。换句话说，treatment == high可以是红色，而treatment == low是红色而不是蓝色的浅色阴影。我尝试添加alpha = treatment，但收到一条消息：

Warning message:
    Using alpha for a discrete variable is not advised.

下面是代码：

library(ggplot2)

variety=rep(LETTERS[1:7], each=40)
treatment=rep(c("high","low"),each=20)
note=seq(1:280)+sample(1:150, 280, replace=T)
data=data.frame(variety, treatment ,  note)

# grouped boxplot
ggplot(data, aes(x=variety, y=note, fill=treatment,alpha=treatment)) + 
 geom_boxplot()

如果没有功能，我可以手动使用scale_fill_manual来实现。

谢谢！