How to convert two vectors into dataframe (wide format)

Question

I want to convert two vectors into a wide format dataframe. The fist vector represent the column names and the second vector the values. Here is my reproduceable example:

vector1<-c("Reply","Reshare","Like","Share","Search")
vector2<-c(2,1,0,4,3)

Now I want to convert these two vector into a wide format dataframe:

# A tibble: 1 x 5
   Reply Reshare  Like Share Search
   <dbl>   <dbl> <dbl> <dbl>  <dbl>
1     2       1     0     4      3

I have found some examples for the long format, but none simple solution for the wide format. Can anyone help me?

score 2 · Accepted Answer · answered Feb 08 '22 at 09:08

You can make a named list (e.g. using setNames), followed by as.data.frame:

df <- as.data.frame(setNames(as.list(vector2), vector1))

Note that it needs to be a list: when converting a named vector into a data.frame, R puts values into separate rows instead of columns.

score 2 · Answer 2 · answered Feb 08 '22 at 09:10

2

vector1<-c("Reply","Reshare","Like","Share","Search")
vector2<-c(2,1,0,4,3)

df <- data.frame(vector1, vector2)
df |> tidyr::pivot_wider(names_from = vector1, values_from = vector2)
#> # A tibble: 1 × 5
#>   Reply Reshare  Like Share Search
#>   <dbl>   <dbl> <dbl> <dbl>  <dbl>
#> 1     2       1     0     4      3

^{Created on 2022-02-08 by the reprex package (v2.0.1)}

answered Feb 08 '22 at 09:10

Grzegorz Sapijaszko

1,913
1
5
12

1

Please Note that the native pipe operator `|>` is only available for R with versions >=4.1 – danlooo Feb 08 '22 at 09:12

score 2 · Answer 3 · answered Feb 08 '22 at 13:34

Yet another solution, based on dplyr::bind_rows:

library(dplyr)

vector1<-c("Reply","Reshare","Like","Share","Search")
vector2<-c(2,1,0,4,3)

names(vector2) <- vector1
bind_rows(vector2)

#> # A tibble: 1 × 5
#>   Reply Reshare  Like Share Search
#>   <dbl>   <dbl> <dbl> <dbl>  <dbl>
#> 1     2       1     0     4      3

score 0 · Answer 4 · answered Feb 08 '22 at 10:06

0

We can use map_dfc and set_names

library(purrr)

set_names(map_dfc(vector2, ~.x), vector1)

# A tibble: 1 × 5
  Reply Reshare  Like Share Search
  <dbl>   <dbl> <dbl> <dbl>  <dbl>
1     2       1     0     4      3

answered Feb 08 '22 at 10:06

GuedesBF

8,409
5
19
37

score 0 · Answer 5 · answered Feb 09 '22 at 00:20

0

Another possible solution:

library(dplyr)

data.frame(rbind(vector1, vector2)) %>%
  `colnames<-`(.[1, ]) %>%
  .[-1, ] %>% 
  `rownames<-`(NULL)

  Reply Reshare Like Share Search
1     2       1    0     4      3

answered Feb 09 '22 at 00:20

AndrewGB

16,126
5
18
49

How to convert two vectors into dataframe (wide format)

5 Answers5

Linked