r - 如何使用dplyr检测字符串中字符的位置

Question

我有以下数据框:

library(tidyverse)
df <- tribble(
       ~sname, ~seq,
       "foo", "TTAW",
       "bar", "ACTN",
       "qux", "AAAA"
      )
 
df

我想要的是第三列在每一行中定位“T”的位置。
最终结果如下所示:

  sname seq  t_pos
  foo   TTAW 1,2
  bar   ACTN 3
  qux   AAAA 0

我怎样才能做到这一点？
我试过这个但不起作用:

df %>% 
  dplyr::mutate(t_pos = paste0( list(which(strsplit(seq, "")[[1]] == "T") ) ))

正确的做法是什么？

Answer 1

您可以添加 rowwise你的尝试:

library(dplyr)

df %>% 
  rowwise() %>%
  mutate(t_pos = toString(which(strsplit(seq, "")[[1]] == "T")))

#  sname seq   t_pos 
#  <chr> <chr> <chr> 
#1 foo   TTAW  "1, 2"
#2 bar   ACTN  "3"   
#3 qux   AAAA  ""    

与 map_chr :

df %>% 
  mutate(t_pos = purrr::map_chr(strsplit(seq, ""), ~toString(which(.x == "T"))))

并在基础 R 中:

df$t_pos <- sapply(strsplit(df$seq, ''), function(x) toString(which(x == 'T')))