I have some survey data and I want to get a summary count of multiple columns.
So far I have worked out how to calculate each one individually and create a % column:

```
help_bk <- likemind %>% 
  count((help_book_1), name = "count") %>% 
  mutate((count/38)*100) %>% 
  rename("percent" = "(count/38) * 100")
help_bk

```

Which gives me this output:

![Output table](https://i.stack.imgur.com/U3xbpm.png)

I want to execute this for multiple columns in one go and get a summary table of all the variables. (Each variable has the same options 1-7 as this one)

Can anyone help enlighten me (pref in a tidyverse function)? TIA