R:应用，自定义函数和数据框名称 [英] R: Apply, custom function and Dataframe names

问题描述

我有一个数据帧Indices，其中包含与数据帧相对应的各种名称(即 名称"Index 1"具有一个相应的数据帧Index 1).

I have a data frame Indices containing various names which correspond to data frames (i.e. a name "Index 1" has a corresponding data frame Index 1).

现在，我想在所有数据帧上运行自定义函数calcScores，并向该数据帧添加几列.由于我不在全局环境中，因此我返回了该新"数据框，并希望将其分配回原始变量Index 1，所以Index 1现在有了带有添加列的新数据框.

Now I want to run my custom function calcScores over all data frames and add several columns to that data frame. Since I'm not in the global environment I return that "new" data frame and want to assign it back to the original variable Index 1, so Index 1 now has the new data frame with the added columns.

这是我的代码(由于所有数据都是非常自定义的，所以我不可能将它做到100％可重现，但我希望您能理解我的问题).

Here's my code (no chance I can make this 100% reproducible since all data is very custom but I hope you understand my question).

# Here the unique Index names are derived and stored
# Problem is the index names are stored as "Index 1", "Index 2" etc.
# Thats why I have to adjust These #titles and create individual data Frames
Indices <- unique(df[1])
apply(unique(df[1]), 1, function(x){
    assign(gsub(" ","",x,fixed=TRUE), subset(df,ticker==x), envir = .GlobalEnv)
})

calcRollingAverage <- function(Parameter, LookbackWindow){
    Output <- rollapply(Parameter, LookbackWindow, mean, fill=NA, partial=FALSE,
                        align="right")
}

calcScores<-function(Index, LookbackWindow){
    Index$PE_Avg = calcRollingAverage(Index$PE_Ratio, LookbackWindow)
    Index$PE_DIV_Avg = Index$PE_Ratio/Index$PE_Avg
    Index$PE_Score = cut(Index$PE_DIV_Avg, breaks=PE_Breaks, labels=Grades)

    return(Index)
}

apply(Indices,1,function(x) assign(gsub(" ","",x,fixed=TRUE), calcScores(get(gsub(" ","",x,fixed=TRUE)),lookback_window)))

我想我的问题出在apply以及整个get，assign和gsub故事中.范围界定显然是问题所在...目前，应用会产生以下错误:

I guess my problems are in the apply and with the whole get, assign and gsub story. The scoping is here obviously the issue... At the moment apply gives the following error:

Error: unexpected symbol in:
"apply(Indices,1,function(x) assign(gsub(" ","",x,fixed=TRUE), calcScores(get(gsub(" ","",x,fixed=TRUE)),lookback_window))
apply"

推荐答案

好，解决了这个问题……很抱歉.那就是解决方案: envir = .GlobalEnv

Ok solved it...sorry for the post. That is the solution: envir = .GlobalEnv

apply(Indices,1,function(x) assign(gsub(" ","",x,fixed=TRUE), calcScores(get(gsub(" ","",x,fixed=TRUE)),lookback_window),envir = .GlobalEnv))

这篇关于R:应用，自定义函数和数据框名称的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！