使用R中的循环将一个变量重新编码为多个0-1变量

Question

从Google Forms调查中下载答案后，出现了与多项选择问题相关的问题。

此问题的所有答案都编码在一个变量/列中，并以逗号分隔。不幸的是，我需要为每个可能的选项将它们更改为0-1变量。我设法将这个“一个变量”划分为不同的列，但是可以在各个列中找到特定的答案/选项。

我用来创建0-1变量的代码是：

A <- c("column1", "column2", "column3", .....) 
B <- c("option1", "option2", "option3", .....)
for (b in B){
  for (a in A) {
Data$b <- ifelse (Data$a=='b',1,0)
}
}

但由于我有数十个列和选项，因此非常耗时。

有没有办法在循环中使用带有列和选项名称的向量？ 例如：

body {
  position: relative;
}
.dropdown{
  position: fixed;
}

我是初学者，我不确定应该怎么做。我很感激你的帮助！