用gsub替換帶重音的多個字母當(dāng)然我可以替換這樣的特定參數(shù)： mydata=c("á","é","ó")
mydata=gsub("á","a",mydata)
mydata=gsub("é","e",mydata)
mydata=gsub("ó","o",mydata)
mydata但是肯定有一種更容易的方法來完成這一切，對吧？我沒有發(fā)現(xiàn)gsub幫助非常全面。
3 回答
慕田峪9158850
TA貢獻1794條經(jīng)驗 獲得超7個贊
一個有趣的問題！我認(rèn)為最簡單的選擇是設(shè)計一個特殊的函數(shù)，比如“multi”gsub（）：
mgsub <- function(pattern, replacement, x, ...) {
if (length(pattern)!=length(replacement)) {
stop("pattern and replacement do not have the same length.")
}
result <- x
for (i in 1:length(pattern)) {
result <- gsub(pattern[i], replacement[i], result, ...)
}
result
}
這給了我：
> mydata <- c("á","é","ó")
> mgsub(c("á","é","ó"), c("a","e","o"), mydata)
[1] "a" "e" "o"
- 3 回答
- 0 關(guān)注
- 607 瀏覽
添加回答
舉報
0/150
提交
取消