更改列順序

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) 

如何將我列前柱「標貼」移動到「A」，而無需編寫所有其他列名（即我可以只指定一列來前/另一列後？ ）。

謝謝。

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)]) 
}