R 将ylab添加到列表中的ggplot绘图

我在列表中有一组箱线图，其形式如下：

data(mtcars)
box_stack <- function(metrics){
  ggplot(mtcars, aes_string(y = metrics, x = factor(1))) + geom_boxplot() + 
    stat_summary(fun.y=mean, geom="point", shape=5, size=4)
}

box_list_stack <- lapply(c("disp","hp"),function(metric){box_stack(metric)})
do.call(grid.arrange, c(box_list_stack,ncol=2))

[[x]][[9]][[2]]

是我想要分配的列表位，但是

---

如上所述（最后两行中的任意一行）替换整个列表元素

我们可以帮助你制作facet而不是使用

网格。如果我们有一些数据，可以安排
。如果我们有一些数据，可以手动完成（在最后期限内），现在已经制作了一个数据示例。我们可以帮助你制作facet而不是使用
网格。如果我们有一些数据，可以安排
。如果我们有一些数据，可以手动完成（在最后期限内），现在已经制作了一个数据示例。
box_list <- lapply(1:2,function(var_n) {
  var_name <- c("Real_disp_name","Real_hp_name")[[var_n]]
  var_org <- c("disp","hp")[[var_n]]
  #box_list[[var_org]][[9]][[2]] <<- var_name
  box_list[[var_n]][[9]][[2]] <<- var_name
  }
                       )