如何为Google Forms问卷‘其他’自定义回复生成赋值新列？

针对你导出的Google Forms调研数据，serviceuse列以分号分隔包含预设服务和带自定义文本的「其他」选项，要生成标记「其他」是否存在的0/1列，可以用以下方法：

• 基础匹配方法（根据表单中「其他」选项的实际文本调整关键词，比如英文表单用"Other"）：

  # 匹配包含「其他」的行，赋值1，否则0
  data$Other <- ifelse(grepl("其他", data$serviceuse), 1, 0)
  

• 精准匹配（如果「其他」选项导出后带固定格式，比如其他：自定义内容，可匹配带冒号的关键词避免误判）：

  data$Other <- ifelse(grepl("其他：", data$serviceuse), 1, 0)
  

• 验证匹配准确性：可以查看所有命中「其他」的内容，确认没有误匹配：

  unique(data$serviceuse[grepl("其他", data$serviceuse)])
  

内容的提问来源于stack exchange，提问作者sionnach