将键值表旋转到R中的整洁数据帧

Question

我有一个格式如下的数据框：

df_before <- 
  tibble(
    key = rep(c('rank', 'name', 'metric'), 5), 
    value = c(
      1, 'name1', 4352, 
      2, 'name2', 2181, 
      3, 'name3', 1399, 
      4, 'name4', 1087, 
      5, 'name5', 1010
    ))

# A tibble: 15 x 2
   key    value
   <chr>  <chr>
 1 rank   1    
 2 name   name1
 3 metric 4352 
 4 rank   2    
 5 name   name2
 6 metric 2181 
 7 rank   3    
 8 name   name3
 9 metric 1399 
10 rank   4    
11 name   name4
12 metric 1087 
13 rank   5    
14 name   name5
15 metric 1010 

我需要将其设置为以下格式：

df_after <- 
  tibble(
    rank = 1:5, 
    name = c('name1', 'name2', 'name3', 'name4', 'name5'), 
    metric = c(4352, 2181, 1399, 1087, 1010)
    )

# A tibble: 5 x 3
   rank name  metric
  <int> <chr>  <dbl>
1     1 name1   4352
2     2 name2   2181
3     3 name3   1399
4     4 name4   1087
5     5 name5   1010

我知道tidyr中有数据透视函数，但我无法从文档中找出语法。 Tidyverse是首选，但任何库或基本函数都可以。

Answer 1

在R底下，您可以这样做：

unstack(df_before,value~key)

  metric  name rank
1   4352 name1    1
2   2181 name2    2
3   1399 name3    3
4   1087 name4    4
5   1010 name5    5

要将类型转换为整数/双精度型，您可以这样做：

type.convert(unstack(df_before,value~key))

Answer 2

我们可以创建一个序列列，然后执行pivot_wider

library(dplyr)
library(tidyr)
library(data.table)
df_before %>% 
   mutate(rn = rowid(key)) %>% 
   pivot_wider(names_from = key, values_from = value) %>%
   select(-rn) %>%
   type.convert(as.is = TRUE)
# A tibble: 5 x 3
#   rank name  metric
#  <int> <chr>  <int>
#1     1 name1   4352
#2     2 name2   2181
#3     3 name3   1399
#4     4 name4   1087
#5     5 name5   1010

---

或使用base R

data.frame(split(df_before$value, df_before$key))
#  metric  name rank
#1   4352 name1    1
#2   2181 name2    2
#3   1399 name3    3
#4   1087 name4    4
#5   1010 name5    5

Answer 3

在data.table中，我们可以使用dcast：

library(data.table)
dcast(setDT(df_before), rowid(key)~key, value.var = 'value')[, key:= NULL][]

#   metric  name rank
#1:   4352 name1    1
#2:   2181 name2    2
#3:   1399 name3    3
#4:   1087 name4    4
#5:   1010 name5    5