Convert dataframe of two columns into fasta format

Question

I have a data frame like this:

df1 <- data.frame(x = c(">Seq1", ">Seq2"), y = c("AAAA", "BBBB"))
> df1
      x    y
1 >Seq1 AAAA
2 >Seq2 BBBB

Wished output:

df2 <- data.frame(x = c(">Seq1", "AAAA", ">Seq2", "BBBB"))
> df2
      x
1 >Seq1
2  AAAA
3 >Seq2
4  BBBB

Thank you in advance!

Answer 1

library(dplyr)

data.frame(x = c(">Seq1", ">Seq2"), y = c("AAAA", "BBBB")) %>% 
  rowwise() %>% 
  summarise(x = c(x,y))

  x    
  <chr>
1 >Seq1
2 AAAA 
3 >Seq2
4 BBBB