使用ifelse中的grepl对R中的标签进行分类

作者: 清月
发布时间: 2024-04-19 01:52:48 (4天前)
转自：

3 条回复

0#
回复此人
一只特立独行的猪 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 同 <code> tidyverse </code> ： </p> <pre> <code> tags<-data.frame(tagName=c("opengl","openglGHSAJKGNKS","arc","arc93257","asnsgn")) tags%>% mutate(software = case_when( tagName %in% foss ~ "FOSS", grepl(paste(foss,collapse="|"),tagName) ~ "FOSS", tagName %in% cots ~ "COTS", grepl(paste(cots,collapse="|"), tagName) ~ "COTS", T ~ "other")) tagName software 1 opengl FOSS 2 openglGHSAJKGNKS FOSS 3 arc COTS 4 arc93257 COTS 5 asnsgn other </code> </pre> </DIV>

编辑
1#
回复此人
哈哈哈哈 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 两件事情。首先，你需要 <code> grepl() </code> 因为逻辑输出。其次， <code> grepl() </code> 不适用于字符向量，因此您需要像这样折叠它 <code> "anaconda|android|..." </code> 并省略 <code> fixed = TRUE </code> 上班。 </p> <P> 这应该这样做： </p> <pre> <code> tags$software <- ifelse(tags$tagName %in% foss, "FOSS", ifelse(grepl(paste(foss, collapse = "|"), tags$tagName), "FOSS", ifelse(tags$tagName %in% cots, "COTS", ifelse(grepl(paste(cots, collapse = "|"), tags$tagName), "COTS", "other")))) </code> </pre> </DIV>

编辑

登录后才能参与评论