Question

对不起，我是R新手我需要准备一个json格式的数据框。但是我很难将变量恢复为原始格式c（1,2,3，...）。例如

library(tidyr)
x<-tibble(x = 1:3, y = list(c(1,5), c(1,5,10), c(1,2,3,20)))
View(x)

这显示

1           1              c(1, 5)
2           2              c(1, 5, 10)
3           3              c(1, 2, 3, 20)

x1<-x %>% unnest(y)
x2<-x1 %>% nest(data=c(y))
View(x2)

This shows
1           1              1 variable 
2           2              1 variable 
3           3              1 variable

所需格式为c（...），而不是变量以准备json数据文件

1           1              c(1, 5)
2           2              c(1, 5, 10)
3           3              c(1, 2, 3, 20)

请帮助

Answer 1

x$y是double s的列表列。而x2$y是tibble s的列表列。

使用map和unlist将tibble变成double s。

library(tidyverse)

x2 %>%
  mutate(data = map(data, unlist))
#> # A tibble: 3 x 2
#>       x data     
#>   <int> <list>   
#> 1     1 <dbl [2]>
#> 2     2 <dbl [3]>
#> 3     3 <dbl [4]>

或者，您可以使用nest代替summarise。

x1 %>%
  group_by(x) %>%
  summarise(data = list(y))
#> # A tibble: 3 x 2
#>       x data     
#>   <int> <list>   
#> 1     1 <dbl [2]>
#> 2     2 <dbl [3]>
#> 3     3 <dbl [4]>

简化嵌套数据框的列表

1 个答案: