spread（）を使用するとdata.tableがコピーされますか？

Question

サンプルはdata.tableです。私は

mydt2 <- mydt %>% spread(group, prob) 

ワイドフォーマットに長いから行くためにtydir::spreadを使用

set.seed(123) 
mydt <- data.table(id = 1:100, x = sample(LETTERS[1:6], size = 100, replace = TRUE), group = paste0("group", sample(1:3, size = 100, replace = TRUE)), prob = runif(100, 0, 1)) 

それから私は私がこれを行う場合、私は次の警告を得る

mydt2[!is.na(group1), new.col := x] 

のように新しい列を定義したいです

Warning message: 
In `[.data.table`(mydt2, !is.na(group1), `:=`(myscale, x)) : 
Invalid .internal.selfref detected and fixed by taking a (shallow) copy 

この代わりにこれを実行すると、

mydt2 <- copy(mydt %>% spread(group, prob)) 
mydt2[!is.na(group1), myscale := x] 

私は警告を受けません。私はこの行動を理解していません。誰も助けを提供できますか？これに対処する正しい方法をcopy()使っていますか？

Answer 1

私はdcastを使用して行くと思います。しかし、tidyr::spreadを使用して可能な解決策は、すなわち、

set.seed(123) 

# install.packages(c("data.table"), dependencies = TRUE) 
library(data.table) 

mydt <- data.table(id = 1:100, x = sample(LETTERS[1:6], size = 100, replace = TRUE), 
        group = paste0("group", sample(1:3, size = 100, replace = TRUE)), 
        prob = runif(100, 0, 1) 
        ) 

class(mydt) 
mydt2 <- mydt %>% tidyr::spread(group, prob) %>% setDT() 

mydt2[!is.na(group1), new.col := x]