R 使用lappy等技术单独配对值

使用

lappy

族非常方便，我可以同时计算多个组合。然而，我发现自己仍然在用那些我想单独分配的值进行大量的复制粘贴，而不是计算所有的组合。下面是一个例子，如果我对这个例子使用

lappy

，我将得到

1,2,3,4

和

0.2,0.7,1.2,1.7

的所有组合。有什么方法可以简单地配对

1-0.2；2-0.7;3-1.3;4-1.7

单独使用，并使用类似的技术，如

lappy

title <- function (k){
  list(
  k [[1]] + ggtitle ('A = 0.2'),
  k [[2]] + ggtitle ('A = 0.7'),
  k [[3]] + ggtitle ('A = 1.2'),
  k [[4]] + ggtitle ('A = 1.7'))
}

---

title您可以将值放入与绘图列表长度相同的标题向量
tt
，并在
seq
上使用
lappy

tt <- c(0.2, 0.7, 1.2, 1.7)

res <- lapply(seq(k), function(i) {
  k[[i]] + ggtitle(paste0("A = ", tt[i]))
})




数据：

库（ggplot2）
p您可以将这些值放入与绘图列表长度相同的标题向量
tt
，并在
seq
上使用
lappy

tt <- c(0.2, 0.7, 1.2, 1.7)

res <- lapply(seq(k), function(i) {
  k[[i]] + ggtitle(paste0("A = ", tt[i]))
})




数据：

库（ggplot2）
pJay.sf的答案也很好，但我认为值得指出的是，
mapply（）
函数是专门为处理这些并行向量情况而设计的。在下面的示例中，我们使用apply中的自定义匿名函数将标题附加到绘图列表

库（ggplot2）
#创建绘图列表
pJay.sf的答案也很好，但我认为值得指出的是，
mapply（）
函数是专门为处理这些并行向量情况而设计的。在下面的示例中，我们使用apply中的自定义匿名函数将标题附加到绘图列表

库（ggplot2）
#创建绘图列表
p感谢您介绍如何在这种情况下使用mapply！！这真的很有帮助！！感谢您介绍如何在这种情况下使用mapply！！这真的很有帮助！！
res[[2]]

library(ggplot2)
p <- ggplot(iris, aes(Petal.Length, Petal.Width)) + geom_point()
k <- list(p, p, p, p)