如何使用向量類型的列創建一個小標題？

Question

說我有看起來像這樣的小標題

tib1 < tibble(x = 1:5, y = 0)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   5 obs. of  2 variables:
 $ x: int  1 2 3 4 5
 $ y: num  0 0 0 0 0

我怎樣才能讓列 y 看起來像這樣：

$ x: int 1 2 3 4 5
$ y: vector c(1,0,0,0,0) c(0,1,0,0,0) c(0,0,1,0,0) ...

一些幫助將不勝感激。

Answer 1

我們可以使用tabulate並根據'x'的值創建一個list列

library(dplyr)
library(purrr)
tib1 %>% 
     mutate(y = map(x, ~ tabulate(.x,  max(x)))) 

Answer 2

在基地 R

library(tibble)
n <- 5
tib1 <- tibble(x = 1:n, y = split(diag(n), rep(1:n, n)))

會給

> tib1$x
[1] 1 2 3 4 5
> tib1$y
$`1`
[1] 1 0 0 0 0

$`2`
[1] 0 1 0 0 0

$`3`
[1] 0 0 1 0 0

$`4`
[1] 0 0 0 1 0

$`5`
[1] 0 0 0 0 1