如何用tibble中第一行的内容替换所有变量名

How to replace all variable names with the contents of the first row in a tibble

有没有一种快速的方法可以用小标题第一行的内容替换变量名?

所以转成这样:

Subject  Q1   Q2      Q3
Subject  age  gender  cue
429753   24   1       man
b952x8   23   2       mushroom
264062   19   1       night
53082m   35   1       moon

进入这个:

Subject  age  gender  cue
429753   24   1       man
b952x8   23   2       mushroom
264062   19   1       night
53082m   35   1       moon

我的数据集有 100 多个变量,所以我正在寻找一种不需要输入每个新旧变量名称的方法。

可能的解决方案:

df <- structure(list(Subject = c("Subject", "429753", "b952x8", "264062", 
"53082m"), Q1 = c("age", "24", "23", "19", "35"), Q2 = c("gender", 
"1", "2", "1", "1"), Q3 = c("cue", "man", "mushroom", "night", 
"moon")), row.names = c(NA, -5L), class = "data.frame")

names(df) <- df[1,]
df <- df[-1,]  
df

#>   Subject age gender      cue
#> 2  429753  24      1      man
#> 3  b952x8  23      2 mushroom
#> 4  264062  19      1    night
#> 5  53082m  35      1     moon