lapply 내에서 별도의 플롯 제목

Question

한 페이지에 여러 개의 개체가 있고 각기 다른 제목이 있습니다. 현재 필자는 lapply 내에서 ggtitle로 피드하는 플롯 제목의 벡터를 가지고 있지만 각 플롯에이 벡터의 첫 번째 항목 만 추가합니다.

빠른 추한 최소한의 예를

은 다음과 같습니다 :

library(ggplot2) 
library(gridExtra) 

#My 'data' 
A.a <- rnorm(10) 
A.b <- rnorm(30) 
lmnames <- ls(pattern = "A.*") 

titlenames <- c("Plot A", "Plot B") 

plotlist <- list() 
#I have a more complex ggplot function in reality, but I'm using qplot here as a placeholder. 
plotlist <- lapply(lmnames, FUN=function(x,y){qplot(get(x)) + ggtitle(y)}, y=titlenames) 

grid.arrange(grobs = plotlist) 

그것은 다음과 같습니다

당신이 볼 수있는 두 그래프는 "플롯 A"표시되어 있습니다. 필자는 그에 따라 각 줄거리를 표시하고 싶습니다. 아무도 내가 여기에서 놓친 것을 볼 수있게 도와 줄 수 있습니까? 미리 감사드립니다.

Answer 1

에서 읽을 것을을

귀하의 문제는 귀하의 모든 플롯에서 귀하의 직함이 "플롯 A ""플롯 B ", plotlist[[1]]$labels$title 참조.

plotlist <- lapply(1:length(lmnames), function(x){ 
    qplot(get(lmnames[x])) + ggtitle(titlenames[x]) 
}) 

내가 더 우아한 해결책이 있습니다 확신 :

실제로 동작하는 코드는 다음과 같다. 하지만이 방법이 효과적입니다.

감사합니다, J_F

Answer 2

이 잘 작동 :

plotlist <- lapply(1:2, FUN=function(i){qplot(get(lmnames[i])) + ggtitle(titlenames[i])}) 

또는이 :

plotlist <- apply(data.frame(lmnames, titlenames), 1, FUN=function(x){qplot(get(x[1])) + ggtitle(x[2])}) 

문제는 모두 반복에서, y=titlenames의 첫 번째 값이

Answer 3

여러 변수를 통해 반복하는 것은 종종 청소기 mapply 함께,

library(ggplot2) 
library(gridExtra) 

dl <- list("Plot A" = rnorm(10), "Plot B" = rnorm(10)) 
plot_fun <- function(x, y) qplot(x) + ggtitle(y) 
grid.arrange(grobs = Map(plot_fun, x = dl, y = names(dl)))