我一直在努力用特定數字替換 Comments 變數 (data1) 中的單詞。例如，只要有一個單詞“truck”，它就會被“1”替換。只要有“trailer”這個詞，它就會被“2”代替......等等。我終于可以得到以下兩個資料集。第一個是我的評論，第二個是所有帶數字的重要單詞。我現在需要的就是用 data2 中的對應編號替換來自 data1 的評論中的每個單詞。
data1<- structure(list(Direction = c("W", "W", "E"), Comments = list(
"tractor trailer struck by car that left scene // delayed response due to previous assists // ma unit called off incident",
"incident cleared before ma unit arrived on scene", "crash on union south of i-70 // 3 city tow on scene. // no state damage // all cleared from roadway ")), row.names = 3:5, class = "data.frame")
data2<- structure(list(Content = c("tractor", "trailer", "struck", "car",
"left", "scene", "delayed", "response", "due", "previous", "assists",
"unit", "called", "incident", "cleared", "arrived", "crash",
"union", "south", "i-70", "city", "tow", "state", "damage", "roadway"
), number = 1:25), row.names = c(NA, 25L), class = "data.frame")
我的最終目標是查看評論并查看數字或單詞。我在這里先向您的幫助表示感謝。
uj5u.com熱心網友回復：
這是一種方法gsub。
for(i in seq_len(nrow(data2))) {
pat <- paste0("\\<", data2$Content[i], "\\>")
data1$Comments <- gsub(pat, data2$number[i], data1$Comments)
}
data1
#> Direction Comments
#> 3 W 1 2 3 by 4 that 5 6 // 7 8 9 to 10 11 // ma 12 13 off 14
#> 4 W 14 15 before ma 12 16 on 6
#> 5 E 17 on 18 19 of 20 // 3 21 22 on 6. // no 23 24 // all 15 from 25
由reprex 包創建于 2022-04-28 (v2.0.1)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/467304.html