Flatten DataFrame into a single row with R

Question

Using R I want to reorganize the following mutli-row DataFrame,

       1          2       3
A  Apple     Orange   Grape
B    Car      Truck   Plane
C  House  Apartment  Garage

into this, single-row DataFrame.

     1_A     2_A    3_A  1_B    2_B    3_B    1_C        2_C     3_C
0  Apple  Orange  Grape  Car  Truck  Plane  House  Apartment  Garage

Thank you for your help!

Answer 1

reshape solution, which will take care of all the naming and renaming in one step:

reshape(cbind(dat, id=1, time=rownames(dat)),
        direction="wide", sep="_", new.row.names=0)[-1]
#    1_A    2_A   3_A 1_B   2_B   3_B   1_C       2_C    3_C
#0 Apple Orange Grape Car Truck Plane House Apartment Garage

Answer 2

Another solution with in tidyverse:

library(tidyverse)

df %>%
  rownames_to_column(var = "id") %>%
  pivot_wider(names_from = id, values_from = !id)

# A tibble: 1 x 9
  `1_A` `1_B` `1_C` `2_A`  `2_B` `2_C`     `3_A` `3_B` `3_C` 
  <chr> <chr> <chr> <chr>  <chr> <chr>     <chr> <chr> <chr> 
1 Apple Car   House Orange Truck Apartment Grape Plane Garage