> x <- c(TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, NA)
>
> # base
> paste0(round(mean(x, na.rm = TRUE), 2), "%")
[1] "0.57%"
>
> # dplyr pipe operator
> x %>% mean(na.rm = TRUE) %>% round(2) %>% paste0("%")
[1] "0.57%"