Whats wrong in the input codes, where and why the numbers 5109 2 5 5.1 5.2 come to header, i want to id row at 4509 be the header.
data[1:3,1:5]
         ID   X1  X2 X3 X4
1    02003KH1 -9  1  2  1
2 02003KH1005 -9  0  1  2
3 02003KH1021 -9  1  1  1
> data[4507:4509,1:5]
           ID    X1 X2 X3 X4
4507 2010XX2178  -9 0 2 2
4508 2010XX2228  -9 0 2 2
4509 id        G_r8 G_r9 G_r5 G_r80
> names(data) <- data[data$ID=='id',]
> data[1:3,1:5]
    5109       2 5 5.1 5.2
1 02003KH1    -9 1   2   1
2 02003KH1005 -9 0   1   2
3 02003KH1021 -9 1   1   1
 
    