f1 <- function(dat, groups) {
 dat %>%
    group_by(!!! groups) %>%
    summarize(counts = n()) %>%
    mutate(perc = (counts / sum(counts)) * 100) %>%
    arrange(desc(perc))
 }

f1(dataframe, quos(gender, pet))
# A tibble: 4 x 4
# Groups: gender [2]
#  gender pet    counts  perc
#  <fctr> <fctr>  <int> <dbl>
#1 female cat         3  75.0
#2 male   dog         2  66.7
#3 male   cat         1  33.3
#4 female dog         1  25.0