r - unnest_wider の後に巻き上げられたベクトルから列に名前を付ける

Question

tidyr 1.0 の新機能のいくつかをいじってみると、頭を悩ませているようなものに出くわしました。

boxplot.statsプロットに使用したい boxplot 値のベクトルを取得するために使用しました。私はこれを成功させましたが、新しくネストされていないベクトルの列に名前を付けるより良い方法があると確信しています。

現在の設定は次のとおりです。

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]>

^{reprex パッケージ(v0.3.0)により 2019-10-01 に作成}

目的の出力が得られましたが、列の名前付けに取り組むより良い方法があると確信しています。

読んでくれてありがとう！