eval（）を使用した 'subscript out of bounds'エラー - ループ内のassign（） - 関数に基づく関数

Question

関数 'eval'で作成したオブジェクトに関数 'ggplot'を使用してプロットを割り当てたいとします。このオブジェクトはループ内に配置され、したがってリストとして定義されます。ループの各ラウンドの間、プロットは、変数 'list_pos'を使用してリストの要素として保存する必要があります。

目的は、3つの異なるグラフ 'Graphs_A'、 'Graphs_B'、 'Graphs_C'を作成して、3つの異なるプロットを保存する要素として作成することです。そのため、結果として私はちょうどR-コードは次のようになります

Graphs_A 

を実行することにより、一度、例えば、グループAのために、特定のサブグループのプロットを呼び出すことができます。私の例では、私は常に同じプロットを要素に割り当てていますが、実際のデータセットではそうではありません。

###### Example ##### 

# Load packages 

install.packages('ggplot2') 
library(ggplot2) 

# Creating data 

names <- c("A","B","C") 

numbers <- c(1,2,3) 

df <- data.frame(
    x = c(1, 2, 3, 4, 5, 6, 7, 8), 
    y = c(3, 2, 4, 4, 6, 8, 9, 8) 
) 

# Loop to assign ggplot to elements of list 

for(j in names){ 
    assign(paste("Graphs_", j, sep=""), list()) 
    list_pos <- 0 

    for(i in numbers){ 
     list_pos <- list_pos + 1 
     assign(
     eval(parse(text=paste("Graphs_", j, sep="")))[[list_pos]], 
     ggplot() + geom_point(data=df, aes(x=x, y=y)) # Plot depends in real data set on value of i 
    ) 
    } 
} 

私はいつも「subscript out of bounds」というエラーを受け取ります。私は

assign(paste("Graphs_", j, sep=""), list("X","Y","Z")) 

としてリストを再定義するような別のものを試してみました。しかし、それは、リストの要素にプロットを割り当てるために助けにはなりませんでした。この問題をどうすれば処理できますか？

Answer 1

最初に、eval(parse(text=paste("Graphs_", j, sep="")))[[list_pos]]という行は意味をなさない：parse(text=paste("Graphs_", j, sep=""))は文字列を生成し、evalは式を評価します。したがって、あなたはあなたがeval(parse(text=...))で作業することができます...

のサブセットすることはできませんが、私はリストを使用することをお勧めします：

# Loop to assign ggplot to elements of list 
Graphs <- list() 
for(j in 1:length(names)){ 
    for(i in numbers){ 
     Graphs[[j]] <- ggplot() + geom_point(data=df, aes(x=x, y=y)) 
    } 
} 

私はあなたがリストにプロットを割り当てる理由を知っているが、上記のコードはありません実行...