名前に変数名を含む新しい列を作成する方法（ループ内）？

Question

私は行のインデックス番号を含むベクトルを持っているので、それらの数値に基づいて新しいダミー変数を作成したいと思います。つまり、ベクトルに存在する行は新しい変数に1の値を持ちます。私はこれをループで試行しています。ループ変数の値を格納するには、新しい変数名が必要です。問題は、変数が存在しない限りその変数に値を代入することができないということですが、作成することもできません。

以下は、いくつかの疑似データとコマンドの例です。

set.seed(100) 
df <- data.frame(id = 1:20, 
       year = sample(2011:2013, 20, replace = TRUE), 
       dum = sample(0:1, 20, rep = TRUE), 
       var = sample(10:99, 20)) 
for (x in 2011:2013) { 
# Below I take a subset of data to test models for different years. 
    assign(paste0("subset.", x), df[df$year == x, ]) 
    # Here I would test a model. 
# Below I imitate matching of propensity scores and create an object that contains 
# row indexes of control group. 
    set.seed(x) 
    assign(paste0("matching.", x), list(data = df, index.control = sample(1:20, 4))) 
# Below I attempt to take the row indexes ofcontrol goup from the created 'matching' object and create 
# a new dummy variable that determines the control group. None of the commands work. 
    assign(get(paste0("subset.", x))[get(paste0("matching.", x))$index.control, paste0("control.", x)], 1) 
    get(paste0("subset.", x))[get(paste0("matching.", x))$index.control, paste0("control.", x)] <- 1 
    get(paste0("subset.", x))[[get(paste0("matching.", x))$index.control, paste0("control.", x)]] <- 1 
} 

以下は最後の3つのコマンドを実行したときに表示されるエラーです。

> assign(get(paste0("subset.", x))[get(paste0("matching.", x))$index.control, paste0("control.", x)], 1) 
Error in assign(get(paste0("subset.", x))[get(paste0("matching.", x))$index.control, : 
    invalid first argument 

> get(paste0("subset.", x))[get(paste0("matching.", x))$index.control, paste0("control.", x)] <- 1 
Error in get(paste0("subset.", x))[get(paste0("matching.", x))$index.control, : 
    target of assignment expands to non-language object 

> get(paste0("subset.", x))[[get(paste0("matching.", x))$index.control, paste0("control.", x)]] <- 1 
Error in get(paste0("subset.", x))[[get(paste0("matching.", x))$index.control, : 
    target of assignment expands to non-language object 

したがって、ここでの私の目標は、ループ変数名を含む新しい「ダミー」変数を作成し、行番号がget(paste0("matching.", x))$index.controlに番号と一致どこに1の値を割り当てることです。

Answer 1

lapplyを使用して一致するインデックスとサブセット化されたデータフレームを保存し、次にmapplyを使用して必要な値演算を実行する適用ソリューションを考えてみましょう。完了したら、assign()を使用して複数のオブジェクトに出力します。

# LIST OF YEARLY DATAFRAMES 
subsetdfs <- lapply(2011:2013, function(x) df[df$year == x,]) 

# LIST OF YEARLY RANDOM IDS 
matchinglists <- lapply(2011:2013, function(x) { 
            set.seed(x) 
            sample(1:20, 4) 
            } 
         ) 

# USER-DEFINED FUNCTION TO ASSIGN NAMED COLUMN AND VALUE 
dfprocess <- function(x, y){ 
       x['control'] <- NA 
       x[y,'control'] <- 1 
       x <- x[!is.na(x$id),] 
       return(x) 
      } 

# MAPPLY TO MAP ITERATIVELY EACH LIST FOR FCT 
dflist <- mapply(dfprocess, x=subsetdfs, y=matchinglists) 
dflist  
#   [,1]  [,2]  [,3]  
# id  Integer,6 Integer,9 Integer,5 
# year Integer,6 Integer,9 Integer,5 
# dum  Integer,6 Integer,9 Integer,5 
# var  Integer,6 Integer,9 Integer,5 
# test Numeric,6 Numeric,9 Numeric,5 
# control Numeric,6 Numeric,9 Numeric,5 

# CREATE MULTIPLE FINAL DFS 
for (i in 2011:2013) { 
     assign(paste0('subset', i), 
      data.frame(dflist[, i - 2010]), 
      envir = .GlobalEnv) 
}