複数のデータフレームにわたって定義されたggplot関数を持つループ

Question

myplotという既存のggplot関数を使用して、Rの複数のデータフレームからデータをプロットするループを作りたいと思います。

私のggplot関数はmyplotとして定義されており、抽出したいのはタイトルだけです。私は同様の投稿があることを知っていますが、既存のggplot関数の解決法はありません。ここで

df1 <- diamonds[1:30,] 
df2 <- diamonds[31:60,] 
df3 <- diamonds[61:90,] 

myplot <- ggplot(df1, aes(x = x, y = y)) + 
geom_point(color="grey") + 
labs(title = "TITLE") 

list <- c("df1","df2","df3") 
titles <- c("df1","df2","df3") 

は私の試みです：

for (i in list) { 
    myplot(plot_list[[i]]) 
    print(plot_list[[i]]) 
} 

Answer 1

次のようにあなたがpredifined機能myplot()でループ内で複数のggplotsを作成することができます。

list <- c("df1","df2","df3") #just one character vector as the titles are the same as the names of the data frames 

myplot <- function(data, title){ 
    ggplot(data, aes(x = x, y = y)) + 
    geom_point(color="grey") + 
    labs(title = title) 
} 

for(i in list){ 
    print(myplot(get(i), i)) 
} 

あなた与える2つのベクトルとしたい作業した場合データフレームとタイトルの名前を次のように指定します。

list <- c("df1","df2","df3") 
titles <- c("Title 1","Plot 2","gg3") 

myplot <- function(data, title){ 
    ggplot(data, aes(x = x, y = y)) + 
    geom_point(color="grey") + 
    labs(title = title) 
} 

for(i in seq_along(list)){ #here could also be seq_along(titles) as they a re of the same length 
    print(myplot(get(list[i]), titles[i])) 
}