如何在函数中将更改参数传递给字符？

Question

举一个最小的例子。

df <- data.frame("Treatment" = c(rep("A", 2), rep("B", 2)), "Price" = 1:4, "Cost" = 2:5)

我想通过对我拥有的所有变量的处理来总结数据，并将它们放在一起，所以我定义了一个函数来首先对每个变量执行此操作，然后再将它们rbind 。

SummarizeFn <- function(x,y,z) {
                       x %>% group_by(Treatment) %>% 
                       summarize(n = n(), Mean = mean(y), SD = sd(y)) %>% 
                       cbind("Var" = rep(y, 3)) # add a column to show which variable those statistics belong to. 
                   }
SumPrice <- SummarizeFn(df, df$Price, "Price")

但是，R 告诉我找不到对象“Price”。 如何解决这个问题呢？

另外，如何使 y 作为表示均值和 sd 价格的字符？

Answer 1

价格不是变量，您需要SummarizeFn(df,df$Price)因为价格只是在您的列表中定义 df

SummarizeFn <- function(x,y,z)
{
df1<-(x %>% group_by(Treatment)
        %>% summarize(n = n(), Mean = mean(y), SD = sd(y))
      )

df1<- df1 %>% mutate ("Var" = z)

return(df1)
}

SumPrice <- SummarizeFn(df, df$Price,"Price")