R函數使用傳遞的對象名+內部的其他名稱

Question

我想構建一個函數，調用另一個名稱與主對象名相關的對象。

例如，主要對象是「VCU_Players」和另一對象是「VCU_Players_opp」

在我的功能，我需要在我的計算中使用兩個對象。

，所以我試圖做

my_function<- function(x) { 
    y<-deparse(substitute(x)) 
    z<-"_opp" 
    y<- paste(y,z,sep = "") 

#My Calculations 
x$newfield<- x$pts+ y$pts 
Return(x) 
} 

現在我想的對象VCU_Players傳遞給函數

創建my_function（VCU_Players）

但功能不圖的VCU_Players_opp對象

Answer 1

考慮傳遞字符串文字並使用get()來檢索相應的對象：

teams <- c("Team1", "Team2", "Team3", "Team4", "Team5", "Team6", 
      "Team7", "Team8", "Team9", "Team10", "Team11", "Team12") 

my_function <- function(i) { 
    x <- get(paste0(i, "_players")) 
    y <- get(paste0(i, "_opp")) 

    # My Calculations 
    x$newfield <- x$pts + y$pts  
    return(x) 
} 

dfList <- lapply(teams, my_function) 

然而，理想情況下，使用多個對象的列表工作，而不是在全局環境中分隔多個對象。嘗試從數據源（即Excel）中的多個對象導入到一個列表：

teamdfs <- c(Team1_players, Team2_players, Team3_players, Team4_players, Team5_players, Team6_players, 
      Team7_players, Team8_players, Team9_players, Team10_players, Team11_players, Team12_players) 

team_oppdfs <- c(Team1_opp, Team2_opp, Team3_opp, Team4_opp, Team5_opp, Team6_opp, 
       Team7_opp, Team8_opp, Team9_opp, Team10_opp, Team11_opp, Team12_opp) 

my_function <- function(x, y) { 
    # My Calculations 
    x$newfield <- x$pts + y$pts 
    return(x) 
} 

dfList <- mapply(my_function, teamdfs, team_oppdfs, SIMPLIFY = FALSE) 
      # EQUIVALENT TO Map(my_function, teamdfs, team_oppdfs)