replace Yes, No to 1, 0 in multiple columns in r

I need to replace the Yes and No values to 1 and 0 in 200 columns.

I was using with the command

data %>% mutate(x=ifelse(x=="Yes", 1,0))

but i have to go through each column at a time, and i was wondering if there was any way i could do it all at once.