在lapply

Question

考虑以下代码：

df <- as.data.frame(matrix(rnorm(9),3,3))   
names(df) <- c("A","B","C")
y <- c(1,2,3)
list1 <- lapply(df, function(x) as.vector(x))
par(mfrow=c(1,3))
lapply(list1, function(x) plot(x,y))

我想将list1（A，B，C）中每个向量的名称粘贴到相应x，y-plot的x轴上。 我可以在lappy期间执行此操作，还是需要编写循环？

Answer 1

你可以使用'lapply'来实现它，同时迭代名称：

lapply(names(list1),function(nn){
  plot(list1[[nn]],y,ylab=nn)
}
)