322 エリア用の同一寸法のテーブルのセットがあります。これらのテーブルを 29 の上位レベル エリアに合計する必要があり、各上位レベル エリアにはさまざまな数の下位レベル エリアがあります。
ループで合計を計算することを提案しているので、最初のタスクは、合計する下位レベルの領域の数を決定することです (それぞれに文字識別子があります)。
たとえば、下位レベルの領域の最初のリストは 4 つのリストです。
lad_list_black
[1] "00CW" "00CU" "00CS" "00CR"
上位の領域リストは、最後の項 (この場合は「黒」) によって区別されます。次は「bucks」(つまり lad_list_bucks) などです。
最初のステップで下位レベルのエリアの数をカウントするループを使用することを提案していました-次のようなものです
nam <- c("black","bucks")
lad_list_black <- c("00CW","00CU","00CS","00CR")
for(i in 1:1){
eval(parse(text=length(paste("lad_list_",nam[i],sep=""))))}
しかし、ループの外でテストすると、結果は次のようになりました。
eval(parse(text=length(paste("lad_list_",nam[1],sep=""))))
[1] 1
次の理由から、これは正しくありません。
length(lad_list_black)
[1] 4