как я могу обрезать строки в последовательной области с различными движущимися окнами

ProgramBox

как я могу обрезать строки в последовательной области с различными движущимися окнами

Post author:admin
Запись опубликована:23 марта, 2023
Post category:Вопросы по программированию

Вопрос:

У меня есть такие данные

 df<- structure(list(sname = structure(2:1, .Label = c("Carrot", "Melon"
), class = "factor"), sence = structure(1:2, .Label = c("RSNSNASSAVSTSCVSNRAMKGTTHYDTS", 
"TGMRHGGMVSVCMCVVDDNRRRHYNGAYDDHHRGGVCTS"), class = "factor")), class = "data.frame", row.names = c(NA, 
-2L))

Давайте посмотрим на первую строку

 Melon RSNSNASSAVSTSCVSNRAMKGTTHYDTS

Я хочу иметь возможность нарезать строки в разные окна, а также перемещаться по другому шаблону. например, допустим, перемещение 1 буквы за раз и окон 10. таким образом, первый вывод будет таким

 RSNSNASSAV

Итак, это буква 1 ,2,3,4,5,6,7,8,9,10

Второй будет перемещать 1 букву вперед, а затем нарезать на 10 букв

 SNSNASSAVS

итак, это буква 2,3,4,5,6,7,8,9,10,11
это продолжается до конца.

запрошенный вывод выглядит следующим образом

 output<- structure(list(position = structure(c(33L, 1L, 12L, 23L, 26L, 
27L, 28L, 29L, 30L, 31L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 
11L, 13L, 32L, 1L, 12L, 23L, 26L, 27L, 28L, 29L, 30L, 31L, 2L, 
3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 13L, 14L, 15L, 16L, 17L, 
18L, 19L, 20L, 21L, 22L, 24L, 25L), .Label = c("1,2,3,4,5,6,7,8,9,10", 
"10,11,12,13,14,15,16,17,18,19", "11,12,13,14,15,16,17,18,20", 
"12,13,14,15,16,17,18,19,20,21", "13,14,15,16,17,18,19,20,21,22", 
"14,15,16,17,18,19,20,21,22,23", "15,16,17,18,19,20,21,22,23,24", 
"16,17,18,19,20,21,22,23,24,25", "17,18,19,20,21,22,23,24,25,26", 
"18,19,20,21,22,23,24,25,26,27", "19,20,21,22,23,24,25,26,27,28", 
"2,3,4,5,6,7,8,9,10,11", "20,21,22,23,24,25,26,27,28,29", "21,22,23,24,25,26,27,28,29,30", 
"22,23,24,25,26,27,28,29,30,31", "23,24,25,26,27,28,29,30,31,32", 
"24,25,26,27,28,29,30,31,32,33", "25,26,27,28,29,30,31,32,33,34", 
"26,27,28,29,30,31,32,33,34,35", "27,28,29,30,31,32,33,34,35,36", 
"28,29,30,31,32,33,34,35,36,37", "29,30,31,32,33,34,35,36,37,38", 
"3,4,5,6,7,8,9,10,11,12", "30,31,32,33,34,35,36,37,38,39", "31,32,33,34,35,36,37,38,39,40", 
"4,5,6,7,8,9,10,11,12,13", "5,6,7,8,9,10,11,12,13,14", "6,7,8,9,10,11,12,14,15", 
"7,8,9,10,11,12,13,14,15,16", "8,9,10,11,12,13,14,15,16,17", 
"9,10,11,12,13,14,15,16,17,18", "Carrot", "Melon"), class = "factor"), 
    name = structure(c(20L, 32L, 37L, 26L, 35L, 35L, 2L, 38L, 
    33L, 3L, 46L, 39L, 42L, 34L, 7L, 45L, 36L, 24L, 27L, 1L, 
    21L, 5L, 41L, 15L, 22L, 28L, 17L, 14L, 16L, 23L, 47L, 40L, 
    43L, 6L, 19L, 8L, 19L, 8L, 48L, 44L, 10L, 12L, 25L, 31L, 
    30L, 29L, 18L, 50L, 13L, 4L, 49L, 9L, 11L), .Label = c("AMKGTTHYDT", 
    "ASSAVSTSCV", "AVSTSCVSNR", "AYDDHHRGGV", "Carrot", "CMCVVDDNRR", 
    "CVSNRAMKGT", "CVVDDNRRRH", "DDHHRGGVCT", "DDNRRRHYNG", "DHHRGGVCTS", 
    "DNRRRHYNGA", "GAYDDHHRGG", "GGMVSVCMCV", "GMRHGGMVSV", "GMVSVCMCVV", 
    "HGGMVSVCMC", "HYNGAYDDHH", "MCVVDDNRRR", "Melon", "MKGTTHYDTS", 
    "MRHGGMVSVC", "MVSVCMCVVD", "NRAMKGTTHY", "NRRRHYNGAY", "NSNASSAVST", 
    "RAMKGTTHYD", "RHGGMVSVCM", "RHYNGAYDDH", "RRHYNGAYDD", "RRRHYNGAYD", 
    "RSNSNASSAV", "SAVSTSCVSN", "SCVSNRAMKG", "SNASSAVSTS", "SNRAMKGTTH", 
    "SNSNASSAVS", "SSAVSTSCVS", "STSCVSNRAM", "SVCMCVVDDN", "TGMRHGGMVS", 
    "TSCVSNRAMK", "VCMCVVDDNR", "VDDNRRRHYN", "VSNRAMKGTT", "VSTSCVSNRA", 
    "VSVCMCVVDD", "VVDDNRRRHY", "YDDHHRGGVC", "YNGAYDDHHR"), class = "factor")), class = "data.frame", row.names = c(NA, 
-53L))

Разделить на 2

 RSNSNASSAV
NSNASSAVST
NASSAVSTSC
SSAVSTSCVS
AVSTSCVSNR
STSCVSNRAM
SCVSNRAMKG
VSNRAMKGTT
NRAMKGTTHY
AMKGTTHYDT
KGTTHYDTS

Ответ №1:

Мы преобразуем factor столбцы в character , затем transmute создаем tibble ‘position’, ‘name’ путем перебора строк с помощью map , создаем substring s на основе ширины разделения ‘n’ и количества символов ( nchar ) ‘sence’, объединяем ‘sname’ как first элемент и unnest list выходные данные для создания набора данных из двух столбцов

 library(tidyverse)
f1 <- function(dat, n, mv = 1) {

 dat %>% 
    mutate_all(as.character) %>%
    transmute(out = map2(sence, sname, ~ {
        i1 <- seq_len(nchar(.x) - (n -1))
        i11 <- seq(i1[1], i1[length(i1)], by = mv)

        i2 <- n:nchar(.x) 
        i22 <- seq(i2[1], i2[length(i2)], by = mv) 

        tibble(position = c(.y, map2_chr(i11, i22,  ~ 
                        str_c(seq(.x, .y), collapse=","))),
                name = c(.y, substring(.x, i11, i22)))

               })) %>%
                unnest

   }

-тестирование
— движущееся окно — 1

 f1(df, n = 10, mv = 1)
#                        position       name
#1                          Melon      Melon
#2           1,2,3,4,5,6,7,8,9,10 RSNSNASSAV
#3          2,3,4,5,6,7,8,9,10,11 SNSNASSAVS
#4         3,4,5,6,7,8,9,10,11,12 NSNASSAVST
#5        4,5,6,7,8,9,10,11,12,13 SNASSAVSTS
#6       5,6,7,8,9,10,11,12,13,14 NASSAVSTSC
#7      6,7,8,9,10,11,12,13,14,15 ASSAVSTSCV
#8     7,8,9,10,11,12,13,14,15,16 SSAVSTSCVS
#9    8,9,10,11,12,13,14,15,16,17 SAVSTSCVSN
#10  9,10,11,12,13,14,15,16,17,18 AVSTSCVSNR
#11 10,11,12,13,14,15,16,17,18,19 VSTSCVSNRA
#12 11,12,13,14,15,16,17,18,19,20 STSCVSNRAM
#13 12,13,14,15,16,17,18,19,20,21 TSCVSNRAMK
#14 13,14,15,16,17,18,19,20,21,22 SCVSNRAMKG
#15 14,15,16,17,18,19,20,21,22,23 CVSNRAMKGT
#16 15,16,17,18,19,20,21,22,23,24 VSNRAMKGTT
#17 16,17,18,19,20,21,22,23,24,25 SNRAMKGTTH
#18 17,18,19,20,21,22,23,24,25,26 NRAMKGTTHY
#19 18,19,20,21,22,23,24,25,26,27 RAMKGTTHYD
#20 19,20,21,22,23,24,25,26,27,28 AMKGTTHYDT
#21 20,21,22,23,24,25,26,27,28,29 MKGTTHYDTS
#22                        Carrot     Carrot
#23          1,2,3,4,5,6,7,8,9,10 TGMRHGGMVS
#24         2,3,4,5,6,7,8,9,10,11 GMRHGGMVSV
#25        3,4,5,6,7,8,9,10,11,12 MRHGGMVSVC
#26       4,5,6,7,8,9,10,11,12,13 RHGGMVSVCM
#27      5,6,7,8,9,10,11,12,13,14 HGGMVSVCMC
#28     6,7,8,9,10,11,12,13,14,15 GGMVSVCMCV
#29    7,8,9,10,11,12,13,14,15,16 GMVSVCMCVV
#30   8,9,10,11,12,13,14,15,16,17 MVSVCMCVVD
#31  9,10,11,12,13,14,15,16,17,18 VSVCMCVVDD
#32 10,11,12,13,14,15,16,17,18,19 SVCMCVVDDN
#33 11,12,13,14,15,16,17,18,19,20 VCMCVVDDNR
#34 12,13,14,15,16,17,18,19,20,21 CMCVVDDNRR
#35 13,14,15,16,17,18,19,20,21,22 MCVVDDNRRR
#36 14,15,16,17,18,19,20,21,22,23 CVVDDNRRRH
#37 15,16,17,18,19,20,21,22,23,24 VVDDNRRRHY
#38 16,17,18,19,20,21,22,23,24,25 VDDNRRRHYN
#39 17,18,19,20,21,22,23,24,25,26 DDNRRRHYNG
#40 18,19,20,21,22,23,24,25,26,27 DNRRRHYNGA
#41 19,20,21,22,23,24,25,26,27,28 NRRRHYNGAY
#42 20,21,22,23,24,25,26,27,28,29 RRRHYNGAYD
#43 21,22,23,24,25,26,27,28,29,30 RRHYNGAYDD
#44 22,23,24,25,26,27,28,29,30,31 RHYNGAYDDH
#45 23,24,25,26,27,28,29,30,31,32 HYNGAYDDHH
#46 24,25,26,27,28,29,30,31,32,33 YNGAYDDHHR
#47 25,26,27,28,29,30,31,32,33,34 NGAYDDHHRG
#48 26,27,28,29,30,31,32,33,34,35 GAYDDHHRGG
#49 27,28,29,30,31,32,33,34,35,36 AYDDHHRGGV
#50 28,29,30,31,32,33,34,35,36,37 YDDHHRGGVC
#51 29,30,31,32,33,34,35,36,37,38 DDHHRGGVCT
#52 30,31,32,33,34,35,36,37,38,39 DHHRGGVCTS

-перемещение окна — 2

 f1(df, n = 10, mv = 2) %>%
            head
#                      position       name
#1                        Melon      Melon
#2         1,2,3,4,5,6,7,8,9,10 RSNSNASSAV
#3       3,4,5,6,7,8,9,10,11,12 NSNASSAVST
#4     5,6,7,8,9,10,11,12,13,14 NASSAVSTSC
#5   7,8,9,10,11,12,13,14,15,16 SSAVSTSCVS
#6 9,10,11,12,13,14,15,16,17,18 AVSTSCVSNR

-перемещение окна — 3

 f1(df, n = 10, mv = 3) %>% 
         head
#                       position       name
#1                         Melon      Melon
#2          1,2,3,4,5,6,7,8,9,10 RSNSNASSAV
#3       4,5,6,7,8,9,10,11,12,13 SNASSAVSTS
#4    7,8,9,10,11,12,13,14,15,16 SSAVSTSCVS
#5 10,11,12,13,14,15,16,17,18,19 VSTSCVSNRA
#6 13,14,15,16,17,18,19,20,21,22 SCVSNRAMKG

-движущееся окно — 4

 f1(df, n = 10, mv = 4) %>% 
          head
#                       position       name
#1                         Melon      Melon
#2          1,2,3,4,5,6,7,8,9,10 RSNSNASSAV
#3      5,6,7,8,9,10,11,12,13,14 NASSAVSTSC
#4  9,10,11,12,13,14,15,16,17,18 AVSTSCVSNR
#5 13,14,15,16,17,18,19,20,21,22 SCVSNRAMKG
#6 17,18,19,20,21,22,23,24,25,26 NRAMKGTTHY

1. что , если перемещение перейдет на 2 , или 3 , или 4 , есть ли возможность установить это также в качестве переменной ?

2. @Ученик Извините, не получил ваш вопрос

3. теперь Windows перемещает 1 букву за раз, что, если она перемещает 2 буквы за раз или 3 буквы за раз. Вы понимаете, что я имею в виду?

4. У @Learner substring/substr есть только start/stop - first/last опция. Если нам нужна эта опция. затем необходимо создать индекс с seq

5. Мне уже понравился ваш ответ, но для меня очень важно иметь возможность перемещать окно с параметром, который я устанавливаю не только один

Ответ №2:

 library('tidyverse')
# use this function to make the blocks:
make_substrings = function(string, len, label){

  # set up the indices
  str_len = nchar(string)
  indices1 = 1:(str_len-len 1)
  indices2 = (len:str_len)
  # create the list of indices
  position = map2_chr(indices1, indices2, .f = function(x, y){paste(x:y, collapse = ', ')})
  # take substrings
  name = map2_chr(indices1, indices2, .f = substr, x = string)
  # add yoru food labels
  header = tibble(position = label,
                  name = label)
  header %>% 
    bind_rows(tibble(position,
                     name))
}

# your version had factors
df = df %>% 
  mutate_all(as.character)
# iterate over all the rows of df:
output = Map(f = make_substrings, string = df$sence, len = 10, label = df$sname) %>% 
  bind_rows

1. спасибо, это перемещает только 1 букву за раз, что, если я хочу переместить 2 буквы за раз или больше букв за раз? можно ли изменить ваше решение ? Мне уже понравился твой ответ

2. @Ученик, да, я думаю, что это должно быть довольно легко изменить. Вы захотите изменить индексы и добавить еще один аргумент в функцию. Посмотрите, что происходит с последовательностями, когда вы умножаете все это на константу: (1:5)*3