列の順序を変更してください

Question

私は> 40列の大きなデータフレームで作業しています。すべての列名を指定する必要はなく、列を移動できるようにしたい。たとえば：？

a<-c(1:5) 
b<-c(4,3,2,1,1) 
Percent<-c(40,30,20,10,10) 
Labels<-c("Cat","Dog","Rabbit","Rat","Mouse") 
df1<-data.frame(a,b,Percent,Labels) 

私は「」他のすべての列名（つまりを記述することなく、私はちょうど別の列の前/後に来るように列を指定することができ、列の前に列「Lables」を移動する方法）。

ありがとうございました。迅速かつ汚い

Answer 1

何か（つまり、何の健全性などをチェックしないと、単一のcolnameが供給されていると仮定して）次のようになります。

moveToFirstCol <- function(df, colname) { 
    cnams <- colnames(df) 
    want <- which(colname == cnams) 
    df[, c(cnams[want], cnams[-want])] 
} 

います：

> moveToFirstCol(df1, "Labels") 
    Labels a b Percent 
1 Cat 1 4  40 
2 Dog 2 3  30 
3 Rabbit 3 2  20 
4 Rat 4 1  10 
5 Mouse 5 1  10 

をする方法を提案する必要があること追加の柔軟性が必要な場合は、この種の処理を行います。さらなる柔軟性と

Answer 2

ソリューション：

move_variable <- function(x,where,data,after=FALSE){ 
vnames <- names(data) 
x_idx <- match(x, vnames) 
where_idx <- match(where, vnames) 
idx <- seq(length(vnames)) 
idx[x_idx] <- where_idx 
idx1 <- rep(0L, length(vnames)) 
if(after) idx1[x_idx] <- 1 else idx1[where_idx] <- 1 
return(data[order(idx, idx1)]) 
}