> 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%"