我在原始資料中隱藏了電話號碼和個人姓名。我已經在這里詢問并得到了有關電話號碼的作業的答案。
在屏蔽個人姓名的情況下，我有以下代碼：
x = c("010-1234-5678",
"John 010-8888-8888",
"Phone: 010-1111-2222",
"Peter 018.1111.3333",
"Year(2007,2019,2020)",
"Alice 01077776666")
df = data.frame(
phoneNumber = x
)
delName = c("John", "Peter", "Alice")
for (name in delName) {
df$phoneNumber <- gsub(name, "anonymous", df$phoneNumber)
}
該代碼對我來說不是問題，
> df
phoneNumber
1 010-1234-5678
2 anonymous 010-8888-8888
3 Phone: 010-1111-2222
4 anonymous 018.1111.3333
5 Year(2007,2019,2020)
6 anonymous 01077776666
但我有超過 10,000 個個人姓名要掩蓋。R 現在正在處理第 789 個行程。時間可以解決，但我想知道減少處理時間的方法。我搜索了foreach，但我不知道如何調整上面的原始代碼。
uj5u.com熱心網友回復：
這是另一個使用 的選項stringr，它比gsub.
library(stringr)
str_replace_all(
string = df$phoneNumber,
pattern = paste(delName, collapse = '|'),
replacement = "anonymous"
)
# [1] "010-1234-5678"
# [2] "anonymous 010-8888-8888"
# [3] "Phone: 010-1111-2222"
# [4] "anonymous 018.1111.3333"
# [5] "Year(2007,2019,2020)"
# [6] "anonymous 01077776666"
基準測驗（感謝@jay.sf 的 df2！）
df2 <- df[sample(nrow(df), 1e5, replace=T),,drop=F]
dim(df2)
# [1] 100000 1
bench::mark(
stringr = str_replace_all(
string = df2$phoneNumber,
pattern = paste(delName, collapse = '|'),
replacement = "anonymous"
),
gsub = gsub(delNamec, 'anonymous', df2$phoneNumber)
)
# A tibble: 2 × 13
# expression min median `itr/sec` mem_alloc `gc/sec` n_itr n_gc total_time
# <bch:expr> <bch:tm> <bch:tm> <dbl> <bch:byt> <dbl> <int> <dbl> <bch:tm>
# 1 stringr 45.4ms 46.7ms 20.9 781KB 0 11 0 525ms
# 2 gsub 97ms 111.8ms 9.18 781KB 0 5 0 544ms
uj5u.com熱心網友回復：
您可以先嘗試不使用回圈，然后將paste字串與or 連在一起\。
(delNamec <- paste(delName, collapse='|'))
# [1] "John|Peter|Alice"
gsub(delNamec, 'anonymous', df$phoneNumber)
# [1] "010-1234-5678"
# [2] "anonymous 010-8888-8888"
# [3] "Phone: 010-1111-2222"
# [4] "anonymous 018.1111.3333"
# [5] "Year(2007,2019,2020)"
# [6] "anonymous 01077776666"
眨眼間運行，即使有 100k 行。
df2 <- df[sample(nrow(df), 1e5, replace=T),,drop=F]
dim(df2)
# [1] 100000 1
system.time(gsub(delNamec, 'anonymous', df2$phoneNumber))
# user system elapsed
# 0.129 0.000 0.129
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/404910.html
標籤：