r - 在 R dplyr 中将一个小句子分成多行，每行用一个字符串

Question

我有一个如下所示的数据框

library(tidyverse)

data=data.frame(POS=c(172367,10), SNP=c("ATCG","AG"), QUAL=c(30,20))
data
#>      POS  SNP QUAL
#> 1 172367 ATCG   30
#> 2     10   AG   20

^{由 reprex package 于 2022 年 2 月 2 日创建(v2.0.1)}

我想让它看起来像这样

   POS     SNP    QUAL
   172367  A      30
   172368  T      30
   172369  C      30
   172370  G      30
   10      A      20
   11      G      20

我想将多字符串分成具有单个字符串的行，然后进行更改 位置也一样。

非常感谢任何帮助

Answer 1

你可以这样做:

library(dplyr)
library(tidyr)

data %>%
  separate_rows(SNP, sep = "(?<=[ACGT])") %>%
  mutate(POS = ave(POS, POS, FUN = \(x) x + seq_along(x) - 1))

# A tibble: 6 x 3
     POS SNP    QUAL
   <dbl> <chr> <dbl>
1 172367 A        30
2 172368 T        30
3 172369 C        30
4 172370 G        30
5     10 A        20
6     11 G        20