R：在R數據表中的特定位置插入一列

Question

我有以下數據表

 user_id user_system_days event total_pics 
[1,] 21196680    0  0   124 
[2,] 21197699    0  0   4 
[3,] 21197861    0  0   14 
[4,] 21198820    1  0   21 
[5,] 21199601    0  0   3 
[6,] 21203847    0  0   1 

基於列的事件我想插入一列數據表中的值，我的方法是通過編寫一個函數，並使用該函數返回一個值。

opposite_event <- function(x) { 
    y <- 1 
    if (x == 1) 
    y <- 0 
    return (y) 
} 

我打電話的功能如下：

dt[,op_event:=opposite_event(dt$event)] 

這實際上增加了列，但價值是錯誤的：

 user_id user_system_days event total_pics op_event 
[1,] 21196680    0  0   124  0 
[2,] 21197699    0  0   4  0 
[3,] 21197861    0  0   14  0 
[4,] 21198820    1  0   21  0 
[5,] 21199601    0  0   3  0 
[6,] 21203847    0  0   1  0 

根據我的職能，如果dt$event的價值1然後返回值應爲0，如果dt$event爲0，則返回值應爲1另外我不確定如何將該列插入到特定位置，例如事件列之後。

Answer 1

if未被矢量化，用y <- ifelse(x == 0, 1, 0)替換。

你並不真的需要在我看來，一個自定義函數：

dt[,op_event := ifelse(event == 0, 1, 0)]