library(tidyverse)
library(forcats)
inputdata <- data.frame (a=c("Yes","No","No"),
b=c("No","No","Yes"),
c=c("Yes","Yes","No"),stringsAsFactors = TRUE)
inputdata
# a b c
# 1 Yes No Yes
# 2 No No Yes
# 3 No Yes No
final <- mutate_if(inputdata,
is.factor,
~fct_recode(.,!!!c("1"="Yes","0"="No")))
final
# a b c
# 1 1 0 1
# 2 0 0 1
# 3 0 1 0