Thêm biến mới vào vị trí cụ thể trong khung dữ liệu

Question

Tôi có DF nơi tôi muốn thêm một biến mới được gọi là "B" vào vị trí thứ 2.

A C D 
1 1 5 2 
2 3 3 7 
3 6 2 3 
4 6 4 8 
5 1 1 2 

Có ai có ý tưởng không?

Answer 1

Cách đơn giản nhất sẽ có thêm các cột mà bạn muốn và sau đó sắp xếp lại chúng:

dat$B <- 1:5 
newdat <- dat[, c("A", "B", "C", "D")] 

Một cách khác:

newdat <- cbind(dat[1], B=1:5, dat[,2:3]) 

Nếu bạn lo ngại về chi phí, có lẽ là một giải pháp data.table? (Với sự giúp đỡ từ this answer):

library(data.table) 
dattable <- data.table(dat) 
dattable[,B:=1:5] 
setcolorder(dattable, c("A", "B", "C", "D")) 

Answer 2

dat$B <- 1:5 
ind <- c(1:which(names(data) == "A"),ncol(data),(which(names(data) == "A")+1):ncol(data)-1) 
data <- data[,ind] 

Tạo biến vào cuối những data.frame và sau đó sử dụng một vector chỉ phát tín hiệu như thế nào để sắp xếp lại các cột. ind chỉ là một vectơ số