Group by and pivot wider with messy survey data in R

Question

I have data such as this.

data_in <- read_table2("**Characteristic**  **N=175**
Q50_1.Enrollreason-Bystudentchoice  
Never   65/153(42%)
Rarely  31/15