1

我尝试计算 R 中不同组的列均值。存在几种分配组的方法，因此创建的两列包含不同的分组。

    # create a test df
    df.abcd.2<-data.frame(Grouping1=c("a","f","a","d","d","f","a"),Grouping2=c("y","y","z","z","x","x","q"),Var1=sample(1:7),Var2=sample(1:7),Var3=rnorm(1:7))
    df.abcd.2

现在我用assign、lapply、split和colMeans创建了一个循环来获取我的结果并将其存储在不同的dfs中。循环工作正常。

   #Loop to create the colmeans and store them in dataframes
    for (i in 1:2){
      nam <- paste("RRRRRR",deparse(i), sep=".")
      assign(nam, as.data.frame(
        lapply(
          split(df.abcd.2[,3:5], df.abcd.2[,i]), colMeans)
      )
      )
    }

所以现在我想创建一个函数来将此方法应用于不同的数据帧。我的尝试看起来像这样：

    # 1. function to calculate colMeans for diffrent groups
    # df= desired datatframe, 
    # a=starting column: beginning of the columns that contain the groups, b= end of columns that contain the groups
    # c=startinc column: beginning of columns to be analized, d=end of columns do be analized

    function.split.colMeans<-function(df,a,b,c,d)
    {for (i in a:b){
      nam <- paste("OOOOO",deparse(i), sep=".")
      assign(nam, as.data.frame(
        lapply(
          split(df[,c:d], df[,i]), colMeans)
      )
      )
    }
    }
    #test the function
    function.split.colMeans(df.abcd.2,1,2,3,5)

因此，当我测试此功能时，我既没有收到错误消息，也没有收到结果……有人可以帮帮我吗？

4

1 回答 1

1

它运行良好。阅读分配的帮助。了解框架和环境。

换句话说，它在您的函数内部创建变量，但它们不会泄漏到您ls()在命令行中看到的环境中。如果您将print(ls())其放入函数循环中，您会看到它们，但是当函数结束时，它们会消失。

通常，函数与其调用环境交互的唯一方式是通过它们的返回值。任何其他方法都在进入一个痛苦的世界。

不要使用 assign 来创建具有顺序或信息名称的事物。曾经。除非您知道自己在做什么，但您不知道...将它们放在列表中，然后您可以索引这些部分以进行循环等等。

于 2013-01-16T11:54:06.243 回答