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)