разделить столбец, содержащий строки неравной длины, на несколько столбцов в R - PullRequest
Новая
       6

разделить столбец, содержащий строки неравной длины, на несколько столбцов в R

0 голосов
/ 26 сентября 2018

У меня есть такой фрейм данных - 

uniq = data.frame(Freq = c(172,4,50,3), 
  seq = c("G","G G T G T","G G T T","T G T T A T T"))

Я хочу разбить второй столбец на несколько столбцов без повторений.Строка разделена пробелами.

Я пытался использовать приведенный ниже код, но это дублирует значения от меньшей строки до длины более длинной строки - 

within(uniq, uniq_seq <-data.frame(do.call('rbind', strsplit(as.character(uniq[,2]), ' '))))

Спасибо за вашу помощь!

1 Ответ

0 голосов
/ 26 сентября 2018

Определенно нечетный запрос, но определенно возможный с tidyverse . 

library(tidyverse)

df <- uniq %>% 
  mutate(n = row_number()) %>%
  separate_rows(seq, sep = ' ') %>% 
  group_by(n, Freq) %>% 
  mutate(n2 = row_number()) %>% 
  spread(n2, seq) %>%
  select(-n)

   Freq `1`   `2`   `3`   `4`   `5`   `6`   `7`  
  <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1     3 T     G     T     T     A     T     T    
2     4 G     G     T     G     T     NA    NA   
3    50 G     G     T     T     NA    NA    NA   
4   172 G     NA    NA    NA    NA    NA    NA
...