时间戳

首页 > 解决方案 > 使用 lapply 将标签传递给 ggplot2

r - 使用 lapply 将标签传递给 ggplot2

问题描述

我正在尝试使用 lapply 循环遍历包含绘图标签的向量列表。该列表包含向量。向量的第一个元素是绘图标题，然后是 x 轴标签，然后是 y 轴标签。我想避免编写任何 for 循环。我无法弄清楚如何引用。下面的代码是我能想到的最接近的代码，但它只输出NULL3 次。

library(tidyverse)

plot.labels <- list(c("Title1","Xlab1","ylab1"),c("Title2","Xlab2","ylab1"),c("Title3","Xlab3","ylab1"))

plotter <- function(plotdata=d, xvar=cond,lab = NULL){
  ggplot(data = plotdata, aes( x = xvar , y = scale(vowmeanf0) ))+
    geom_point()+
    labs(title = lab[1],
         x = lab[2],
         y = lab[3])
}

lapply(plot.labels, function(x){
  for(df in 1:length(plot.labels)){
    plotter(x[df])
  }
} )

标签： rggplot2functional-programminglapplysapply

解决方案

lapply 应该看起来更像这样。你不应该在 lapply 中循环，因为 lapply 本质上是一个 for 循环的包装器。lapply(plot.labels, function(x) plotter(plotdata = d, xvar = cond, lab = x)) – Mako212

那行得通

library(tidyverse)

plot.labels <- list(c("Title1","Xlab1","Ylab1"),c("Title2","Xlab2","Ylab2"),c("Title3","Xlab3","Ylab3"))

plotter <- function(plotdata = NULL, xvar = NULL ,lab = NULL){
  ggplot(data = plotdata, aes( x = xvar , y = scale(vowmeanf0) ))+
    geom_point()+
    labs(title = lab[1],
         x = lab[2],
         y = lab[3])
}

lapply(plot.labels, function(x) plotter(plotdata = d, xvar = "cond", lab = x))

推荐阅读