如何使用多个if语句向量化一个函数？
如何使用多个if语句向量化一个函数？
提问于 2017-07-12 09:36:39
我有一个使用查找表清理状态名称的函数
library(stringr)
library(dplyr)
lkt <- data_frame(state=state.abb, state_name=state.name)
cleanState <- function(x, lkt) {
x <- stringr::str_trim(x)
if(any(str_detect(x, fixed(lkt$state_name, ignore_case = T)))) {
grep(x, lkt$state_name, useBytes = T, value=T, ignore.case = T)
} else if (any(str_detect(x, fixed(lkt$state, ignore_case = T)))) {
grep(x, lkt$state, useBytes = T, value=T, ignore.case = T)
} else {
NA
}
}然而，我想对它进行矢量化，以便在州名称或缩写的矢量上运行它，比如x <- c('MN', 'Texas', 'Neww York')，它应该检索矢量('Minnesota', 'Texas', NA)。
我试过使用嵌套的ifelse，但仍然不能正常工作，我知道我可以使用sapply，但我宁愿将这个函数矢量化，这样我就可以向x传递一个向量。
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-07-12 10:03:11
如果我没弄错你想要什么，这里有一种方法：
lkt <- data.frame(state=state.abb, state_name=state.name,stringsAsFactors = FALSE)
cleanState2 <- function(x) {
get.ind <- function(s) {
out <- grep(s, paste(lkt$state_name, lkt$state, sep = "|"), ignore.case = TRUE)
ifelse(identical(out, integer(0)), NA, out)
}
ind <- unlist(sapply(x, get.ind))
lkt$state_name[ind]
}
x <- c('MN', 'Texas', 'Neww York')
cleanState2(x)
#[1] "Minnesota" "Texas" NA 页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/45053953
复制相关文章
相似问题
响应useEffect清理
获取数据后的reactjs useEffect清理功能
react useEffect未清理事件侦听器
如何清理useEffect函数？
useEffect清理/内存泄漏
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
