登陆

如何在R中的小标题中将字符向量与字符向量列表匹配?

admin 2022-11-30 4人围观 ,发现0个评论

我想将小标题中的A列与B列进行比较,以查看B列中是否存在A列中的元素。A列是一个字符向量。B列是字符向量的列表。我想一行一行地做。我可以循环执行此操作。

library(tidyverse)  my.tibble = c('a','b','c') %>% tibble my.list = list(c('a','b'),c('b','c'),c('d','e')) my.tibble = my.tibble %>% add_column(my.list)  its.in.it = as.list(NULL) for (i in 1:nrow(my.tibble)){     its.in.it[[i]] = my.tibble[i,1] %in% unlist(my.tibble[i,2]) }  my.tibble$its.in.it = unlist(its.in.it) my.tibble 

我正在尝试使用dplyr / purrr或申请。我不确定是否应该分组,嵌套或拆分,并且有很多组合。



1> kath..:

您可以使用map2_lgl接受两个输入,然后循环遍历并返回逻辑向量。

names(my.tibble) <- c("char", "char.list") my.tibble %>%    mutate(its.in.it = map2_lgl(char, char.list, ~ .x %in% .y))  # A tibble: 3 x 3 #   char  char.list its.in.it #             # 1 a      TRUE      # 2 b      TRUE      # 3 c      FALSE   

请发表您的评论
请关注微信公众号
微信二维码
不容错过
Powered By Z-BlogPHP