split column containing strings of unequal length into multiple columns in R

Question

I have a data frame like this -

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"))

I want to split the second column into multiple columns without any repetitions. The string in separated by spaces.

I tried using the code below but this duplicates values from smaller string to the length of the longer string -

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

Thanks for your help!

jdobres · Accepted Answer · 2018-09-25 22:55:02Z

2

Definitely an odd request, but definitely possible with 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

edited Sep 25, 2018 at 22:55

answered Sep 25, 2018 at 21:49

jdobres

12k1 gold badge20 silver badges41 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Sia Over a year ago

What can one so if the Freq column has repetitions? I mean there can be another row with Freq of 50 and a different seq value.

Collectives™ on Stack Overflow

split column containing strings of unequal length into multiple columns in R

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related