Как удалить альфу из легенды в geom_boxplot (ggplot2)?

Question

Я хотел бы удалить альфа-легенду с моего финального боксплота. Мой фрейм данных относится к линейным измерениям, мне нужно изучить распределение этих измерений по полу и возрасту.
Я также хотел бы, чтобы цвета последней легенды действительно соответствовали альфе;)! Как вы думаете, это лучший способ сделать это?

Большое спасибо заранее!

#boxplot with age classes as groups
box1 <- ggplot(tibfib, aes(x = Age.class, y = T1))

#adding sex as group
box2 <- box1 + geom_boxplot(aes(fill = Sex, alpha = 0.6), position = position_dodge(0.9)) + scale_fill_manual(values = c("#999999", "#E69F00"))


#for labels
sex_names <- c(
  `1` = "Females",
  `2` = "Males")

#final box
box.T1<- box2 + facet_wrap(~Sex, labeller = as_labeller(sex_names))+ theme_bw() + labs(x = "Age classes", y = "Tibial length (mm)")+  labs(fill = "Sex") + scale_fill_manual(values=c("#999999", "#E69F00"), name="Sex", breaks=c("1", "2"),labels=c("Females", "Males"))

сгруппированный блокпост.