比如,构建如下list:
library(tidyverse)
library(magrittr)
test <- list(norm = rnorm(10,0,1),
unif...先将列表转变为一种特殊的tibble:包含两列name和value,name是列表名,value是相应的值。...plot(.y, main=.x))
# 也可以使用ggplot2
test_t %$% map2(name, value, function(x, y){
df <- as_tibble(y)...上面的图可以继续优化一下,如下:
test_t %$% map2(name, value, function(x, y){
df <- as_tibble(y) #转换为tibble,列名为value...另外,上述图还可以直接交给cowplot拼图,如:
test_t %$% map2(name, value, function(x, y){
df <- as_tibble(y) #转换为tibble