【R】重新排序数据框中的列

a=data.frame(x1=c(1:3),x2=c(2:4),x3=c(3:5),x4=(4:6))
colnames(a)<-c("y1","y2","y3","y4")

> head(a)
  y1 y2 y3 y4
1  1  2  3  4
2  2  3  4  5
3  3  4  5  6

a<-subset(a,select=c(2,1,4,3)) #subset(表格，向量（想要的顺序））

> head(a)
  y2 y1 y4 y3
1  2  1  4  3
2  3  2  5  4
3  4  3  6  5