拆分一串连接的逗号分隔数据并将输出重新编码为因子

I am trying to clean up some data that has been incorrectly entered. The question for the variable allows for multiple responses out of five choices, numbered as 1 to 5. The data has been entered in the following manner (this is just an example--there are many more variables and many more observations in the actual data frame):I am trying to clean up some data that has been