I can\'t understand why I can\'t change the fill aesthetic for this geom_bar plot
# Reprex dataset df <- structure(list(modality = c("Biological ther