想象一下这段代码:
mtcars %>%
group_split(cyl) %>%
map(select, mpg, disp, hp) %>%
`names<-`(c(4, 6, 8)) %>%
map(cor)
列表元素的名称是根据cyl变量的值设置的，根据该变量将数据分为三组.
现在想象一下，将所有这些传递给corrplot:
mtcars %>%
group_split(cyl) %>%
map(select, mpg, disp, hp, cyl) %>%
`names<-`(c(4, 6, 8)) %>%
map(cor) %>%
map(corrplot)
效果很好.现在，corrplot函数有一个title参数，用于在绘图上打印标题.我想从用于创建绘图的列表元素的名称中提取每个绘图的标题，换句话说，就是前面提到的cyl变量的值.我该怎么做？我试过这样做:
mtcars %>%
group_split(cyl) %>%
map(select, mpg, disp, hp) %>%
`names<-`(c(4, 6, 8)) %>%
map(cor) %>%
map(corrplot, title = names(.))
但这只是打印图形上的所有名称，而不仅仅是当前元素中的名称.
如果你有解决办法，我将非常感激.不 destruct 管道，因为我可以很容易地找到 destruct 管道的解决方法.