tidyverse, purrr, 无法保留标签

Question

我正在自学 tidyverse，目前正在研究 purrr。例如，使用 map_dbl() 来查找数据集特征的方差是很清楚的。这 returns 一个列表。例如：

library(tidyverse)
diamonds %>%
  select_if(is.numeric) %>% 
  map_dbl(var)

结果如下：

到目前为止一切顺利。但是如果我想做任何事情（比如对结果进行排序），标签就会丢失。例如：

  select_if(is.numeric) %>% 
  map_dbl(var) %>% 
  as_tibble() %>% 
  arrange(value)

这会丢失标签。例如：

在 tidyverse 中这是如何保持标签的？

Answer 1

你可以做到这一点，这样它就始终是一个小标题。

tidy data 值得一读，其中每个变量必须有自己的列并且每个观察必须有自己的行。

library(tidyverse)

diamonds %>%
  summarise(across(where(is.numeric), var)) %>%
  pivot_longer(everything()) %>% 
  arrange(value)
#> # A tibble: 7 × 2
#>   name         value
#>   <chr>        <dbl>
#> 1 carat        0.225
#> 2 z            0.498
#> 3 x            1.26 
#> 4 y            1.30 
#> 5 depth        2.05 
#> 6 table        4.99 
#> 7 price 15915629.

^{由 reprex package (v2.0.1)}

于 2022-04-30 创建

tidyverse, purrr, 无法保留标签

tidyverse, purrr, not able to keep labels

sorting

purrr

tidyverse