用gsub替換帶重音的多個字母當然我可以替換這樣的特定參數： mydata=c("á","é","ó")
mydata=gsub("á","a",mydata)
mydata=gsub("é","e",mydata)
mydata=gsub("ó","o",mydata)
mydata但是肯定有一種更容易的方法來完成這一切，對吧？我沒有發(fā)現gsub幫助非常全面。
3 回答
慕田峪9158850
TA貢獻1794條經驗 獲得超8個贊
一個有趣的問題！我認為最簡單的選擇是設計一個特殊的函數，比如“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 關注
- 614 瀏覽
添加回答
舉報
0/150
提交
取消