从行值创建列标签

Question

我有一个看起来像这样的数据集：

Responseid <- c("Responseid",1,2,3,4)
q1 <- c("what is your gender",1,1,1,1)
q2 <- c("what is your age",18,28,15,40)
df <- data.frame(Responseid,q1,q2)

我想知道如何将所有第 1 行的值作为列标题的标签，所以是这样的：

我有一个包含很多变量的数据集，我想将所有第 1 行的值作为所有列标题的标签。

我将不胜感激所有的帮助！非常感谢！