对值单独使用像lapply这样的技术。

Question

使用lapply家族非常方便，我可以同时计算多个组合。然而，我发现自己仍然用我想单独分配的值做大量的复制粘贴，而不是计算所有的组合。下面是一个示例，如果我在这个示例中使用lapply，我将得到1,2,3,4和0.2,0.7,1.2,1.7的所有组合。我是否可以简单地对1-0.2;2-0.7;3-1.3;4-1.7进行配对，并使用类似于lapply的技术？

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'))
}

Answer 1

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

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

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

结果

前两个结果。

res[[1]]

​

​

res[[2]]

​

​

数据：

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