在数据框中将2行转换为一行

Question

我有一个这样的数据框：

> mydata <- read.csv("mydata.csv", header=T, stringsAsFactors=F)
> tbl_df(mydata)
# A tibble: 16,499 x 60
   SRC_035_01  SRC_035_01.1  SRC_035_02  SRC_035_02.1
1       Force          Time       Force          Time
2     -0.0037         0.000      0.0041         0.000
3      0.0000         0.004      0.0073         0.004
4      0.0079         0.008      0.0156         0.008
5      0.0150         0.012      0.0228         0.012
6      0.0177         0.016      0.0262         0.016
7      0.0141         0.020      0.0236         0.020
8      0.0103         0.024      0.0206         0.024
9      0.0080         0.028      0.0193         0.028
10     0.0102         0.032      0.0226         0.032

我需要逐列地将第一行与标题组合在一起，从而产生此输出：

# A tibble: 16,498 x 60
   SRC_035_01_Force  SRC_035_01.1_Time  SRC_035_02_Force  SRC_035_02.1_Time
2           -0.0037              0.000            0.0041              0.000
3            0.0000              0.004            0.0073              0.004
4            0.0079              0.008            0.0156              0.008
5            0.0150              0.012            0.0228              0.012
6            0.0177              0.016            0.0262              0.016
7            0.0141              0.020            0.0236              0.020
8            0.0103              0.024            0.0206              0.024
9            0.0080              0.028            0.0193              0.028
10           0.0102              0.032            0.0226              0.032

任何人都可以给我一个代码提示吗？

非常感谢！