添加一個新列其他數據框列

我想在我的數據幀「NA」 S添加新列之間：添加一個新列其他數據框列

 A  B 
1 14379 32094 
2 151884 174367 
3 438422 449382

但我需要它位於山坳之間。 A和B，像這樣：

 A  C  B 
1 14379 NA 32094 
2 151884 NA 174367 
3 438422 NA 449382

我知道如何添加列。 C後列。 B，但這對我沒有幫助......任何人都知道該怎麼做？

來源

2013-04-11 Thales West

在2個步驟，你可以重新排序的列：

dat$C <- NA 
dat <- dat[, c("A", "C", "B")] 
     A C   B 
1 0.596068 NA -0.7783724 
2 -1.464656 NA -0.8425972

您還可以使用append

dat <- data.frame(A = rnorm(2), B = rnorm(2)) 
as.data.frame(append(dat, list(C = NA), after = 1)) 

      A C   B 
1 -0.7046408 NA 0.2117638 
2 0.8402680 NA -2.0109721

來源

2013-04-11 19:19:18 agstudy

如果使用data.table你可以使用函數setcolorder。需要注意的是NA存儲爲邏輯變量，如果你想有開始爲整數，雙或字符列的列，您可以使用NA_integer，NA_real_或NA_character_

如

library(data.table) 
DT <- data.table(DF) 
# add column `C` = NA 

DT[, C := NA] 

setcolorder(DT, c('A','C','B')) 
DT 
##   A C  B 
## 1: 14379 NA 32094 
## 2: 151884 NA 174367 
## 3: 438422 NA 449382

你可以這樣做在一行中

setcolorder(DT[, C: = NA], c('A','B','C'))

來源

2013-04-12 00:11:05 mnel

我寫了一個函數來將列附加到（到）data.frame中。它可以讓你的名字列的歡迎，並做了一些檢查...

append_col <- function(x, cols, after=length(x)) { 
    x <- as.data.frame(x) 
    if (is.character(after)) { 
     ind <- which(colnames(x) == after) 
     if (any(is.null(ind))) stop(after, "not found in colnames(x)\n") 
    } else if (is.numeric(after)) { 
     ind <- after 
    } 
    stopifnot(all(ind <= ncol(x))) 
    cbind(x, cols)[, append(1:ncol(x), ncol(x) + 1:length(cols), after=ind)] 
}

例子：

# create data 
df <- data.frame("a"=1:5, "b"=6:10) 

# append column 
append_col(df, list(c=1:5)) 

# append after an column index 
append_col(df, list(c=1:5), after=1) 

# or after a named column 
append_col(df, list(c=1:5), after="a") 

# multiple columns/single values work as expected 
append_col(df, list(c=NA, d=4:8), after=1)

（一個在函數的調用結束的cbind優勢和索引是在data.frame中的字符不會被強制爲因素是，如果使用as.data.frame(append(x, cols, after=ind))

來源

2014-11-21 12:39:51 wannymahoots

您也可以使用該軟件包tibble，其中有一個非常有趣的功能（許多其他中）的情況下）：add_column（）

library(tibble) 
df <- data.frame("a" = 1:5, "b" = 6:10) 
add_column(df, c = rep(NA, nrow(df)), .after = 1)

該函數易於使用，您可以使用參數.before代替。

來源

2016-11-24 14:33:32

添加一個新列其他數據框列

回答

相關問題