尝试一下

df %>% select(noquote(order(colnames(df))))

或者只是

df[,order(colnames(df))]