How to convert two vectors into dataframe (wide format)-CodePudding

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?

CodePudding user response：

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.

CodePudding user response：

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

CodePudding user response：

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

CodePudding user response：

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