which()
match(a, b)
df <- df[ , c(6:1)] names(df)
## [1] "test" "rating" "bp" "weight" "age" "patient"
colnames(df)