使用r，将广泛的调查数据转换为长数据，给定参与者对类似问题的答案被捕获在不同的列中？

# 导入reshape2包
library(reshape2)

# 创建一个示例数据框
survey_data <- data.frame(
  participant = c("A", "B", "C"),
  question1 = c("Yes", "No", "Yes"),
  question2 = c("No", "Yes", "No"),
  question3 = c("Yes", "Yes", "No")
)

# 使用melt函数将数据转换为长格式
long_data <- melt(survey_data, id.vars = "participant", variable.name = "question", value.name = "answer")

# 打印转换后的长数据
print(long_data)

  participant  question answer
1           A question1    Yes
2           B question1     No
3           C question1    Yes
4           A question2     No
5           B question2    Yes
6           C question2     No
7           A question3    Yes
8           B question3    Yes
9           C question3     No