Dodaj nową zmienną do określonej pozycji w ramce danych

Question

Mam DF, gdzie chcę dodać nową zmienną o nazwie "B" do drugiej pozycji.

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

Ktoś ma pomysł?

Answer 1

Najprościej byłoby dodać kolumny, które chcesz, a następnie zmienić ich kolejność:

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

Innym sposobem:

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

Jeśli jesteś zaniepokojony głową, być może rozwiązaniem data.table? (Z pomocą 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] 

Tworzenie zmiennej w końcu data.frame a następnie przy użyciu wektora wskaźnik sygnalizacyjny jak zmienić kolejność kolumn. ind to po prostu wektor liczb: