Использование gsub добавления нового столбца в data.table

Question

Извините за очень простой вопрос, решение должно быть очень простым, но я не могу его найти.

Попытки использовать GSUB добавить новый столбец в data.table, я получил предупреждение «аргумента„замена“имеет длину> 1 и только первый элемент будет использоваться», и все data.table строки имеют в новом столбце значение первой строки.

Вот упрощенный случай:

dt <- data.table(v1=c(1,2,3) , v2=c("axb","cxxd","exfxgx")) 
dt[ , v3:=gsub("x",v1,v2)] 

Новый столбец v3 содержит строку с «1» вместо «х» во всех строках.

Использование других функций, например.

dt[ , v3:=paste(v1,v2)] 

работает должным образом.

Я использую Rstudio v.0.98.1103, R v.3.1.2, data.table v.1.9.4

Answer 1

Самого простой подход будет использовать пакет обработки строки, которая имеет векторизованные аргументы, как stringi:

library(stringi) 
dt[, v3 := stri_replace_all_fixed(v2, "x", v1)][] 
# v1  v2  v3 
# 1: 1 axb a1b 
# 2: 2 cxxd c22d 
# 3: 3 exfxgx e3f3g3 

---

в качестве альтернативы, вы можете сделать свой собственный "векторизованную" версию gsub с помощью Vectorize функции:

vGsub <- Vectorize(gsub, vectorize.args = c("replacement", "x")) 
dt[, v3 := vGsub("x", v1, v2)][] 
# v1  v2  v3 
# 1: 1 axb a1b 
# 2: 2 cxxd c22d 
# 3: 3 exfxgx e3f3g3 

Answer 2

dt[, v3 := gsub("x", v1, v2), by = v1]