p <- ggplot(data=hai_6_nona_recoded, aes(hai_6_nona_recoded$mortality)) + geom_bar(aes(fill = hai_6_nona_recoded$above_avg_score), position = "dodge") + scale_fill ...
Some results have been hidden because they may be inaccessible to you
Show inaccessible results
Feedback