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