Hi @adcar,
as it is your first post, I'll try to guess what you are trying to achieve. Given the iris dataset, I have created an iris2 data frame which has a status column which should resemble your binary variable. The 3 categories are in the Species column.
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(ggplot2)
iris2 <- iris %>%
group_by(Species) %>%
mutate(status = ifelse(Sepal.Length > mean(Sepal.Length), 1, 0)) %>%
ungroup()
iris2 %>%
group_by(Species) %>%
summarize(survived = mean(status)) %>%
ggplot(aes(x=Species, y=survived)) +
geom_col() +
theme_classic() +
scale_y_continuous(labels = scales::percent_format(accuracy = 1))

Created on 2019-11-27 by the reprex package (v0.3.0)