aaa[1, ] 是一个data.frame，无法给一个向量赋值
colnames(aaa) <- as.vector(t(aaa[1, ]))  或者 colnames(aaa) <- unlist(t(aaa[1, ]))
就可以了