測驗資料：
new <- structure(list(date = structure(c(19289, 19290, 19291), tzone = "America/Bogota", class = "Date"),
tracking_code = c("ppl-rmkt-aaa-aaa-aaa-20221024-pdp-preciopromo-none - Copia_tobuy",
"ppl-rmkt-aaa-aaa-aaa-20221024-pdp-preciopromo-none - Copia_tobuy",
"ppl-rmkt-aaa-aaa-aaa-20221024-pdp-preciopromo-none - Copia_tobuy"
), visits = c(81L, 172L, 234L), orders = c(0L, 2L, 0L), units_purchase_event = c(0L,
2L, 0L), revenue_purchase_event = c(0, 8698, 0), revenue_dolars_sin_igv = c(0,
代碼：
new$tracking_code <- gsub(
"ppl-rmkt-aaa-aa[*]a-aaa-20221024-pdp-preciopromo-none - Copia$",
"ppl-lal-aaa-aa*a-aaa-20221024-pdp-preciopromo-none",
new$tracking_code,
ignore.case = TRUE
)
代替：
ppl-rmkt-aaa-aa*a-aaa-20221024-pdp-preciopromo-none - Copia_tobuy
我期待著：
ppl-lal-aaa-aa*a-aaa-20221024-pdp-preciopromo-none_tobuy
uj5u.com熱心網友回復：
我在 gsub 模式引數中看到了 2 個問題：
- 而不是
[*]with\\*來匹配文字*字符。 - 洗掉
$末尾的，它正在尋找源字串的結尾。
所以：
new$tracking_code <- gsub("ppl-rmkt-s22ultra128gbgreen-sm\\*s908ezglltp-cyberwow-20221024-pdp-preciopromo-none - Copia",
"ppl-lal-s22ultra128gbgreen-sm*s908ezglltp-cyberwow-20221024-pdp-preciopromo-none", new$tracking_code,
ignore.case = TRUE)
注意：如果您只想洗掉- Copia文本，請使用更直接的 Wasim Aftab 的答案。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/522290.html
標籤：r
上一篇：合并r中的冗余行項