在使用 tidyr 1.0 的一些新功能时,我遇到了一些令人头疼的问题。
我用过boxplot.stats
获取我想用来绘制的箱线图值向量。我已经成功地完成了此操作,但我相信有更好的方法来命名新的未嵌套向量的列。
这是当前设置:
library(tidyverse)
iris %>%
nest(data = -Species) %>%
mutate(box = map(data, ~ boxplot.stats(.x[["Sepal.Length"]]))) %>%
hoist(box, stats = "stats") %>%
unnest_wider(stats) %>%
rename_at(vars(contains("...")), ~ c("min", "lwr", "med", "upr", "max"))
#> New names:
#> * `` -> ...1
#> * `` -> ...2
#> * `` -> ...3
#> * `` -> ...4
#> * `` -> ...5
#> New names:
#> * `` -> ...1
#> * `` -> ...2
#> * `` -> ...3
#> * `` -> ...4
#> * `` -> ...5
#> New names:
#> * `` -> ...1
#> * `` -> ...2
#> * `` -> ...3
#> * `` -> ...4
#> * `` -> ...5
#> # A tibble: 3 x 8
#> Species data min lwr med upr max box
#> <fct> <list<df[,4]>> <dbl> <dbl> <dbl> <dbl> <dbl> <list>
#> 1 setosa [50 x 4] 4.3 4.8 5 5.2 5.8 <named list [3]>
#> 2 versicolor [50 x 4] 4.9 5.6 5.9 6.3 7 <named list [3]>
#> 3 virginica [50 x 4] 5.6 6.2 6.5 6.9 7.9 <named list [3]>
Created on 2019-10-01 by the reprex package https://reprex.tidyverse.org (v0.3.0)
当我得到想要的输出时,我相信有更好的方法来解决命名列的问题。
谢谢阅读!
我们可以转换为list
并设置名称
library(tidyverse)
iris %>%
group_by(Species) %>%
nest %>%
mutate(box = map(data, ~ boxplot.stats(.x[["Sepal.Length"]]))) %>%
mutate(stats = map(box, ~ .x$stats %>%
as.list %>%
set_names(c("min", "lwr", "med", "upr", "max")))) %>%
unnest_wider(stats)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)