R中的函数参数定义问题答案

【问题标题】：function argument definition issue in RR中的函数参数定义问题
【发布时间】：2011-11-19 16:07:01
【问题描述】：

这是我的问题，当我想开发一个广泛使用的功能时。

dataframe1 <- data.frame(V1 = 1:10, V2 = 11:20, V3 = 21:30, V4 = 31:40)
myfun <- function (dataframe, A, B, yvar) {
                  dataframe1$A <- as.factor(dataframe$A)
                  dataframe1$B <- as.factor (dataframe$B)
                  dataframe1 <- data.frame(A = dataframe1$A, 
                  B = dataframe1$B, yvar = dataframe1$yvar)
                  print(dataframe1)
                  }

 myfun (dataframe = dataframe1, A = "V1", B= "V2", yvar = "V3")
 Error in `$<-.data.frame`(`*tmp*`, "A", value = integer(0)) :
  replacement has 0 rows, data has 10

myfun (dataframe = dataframe1, A = dataframe1$V1, 
         B= dataframe1$V2, yvar = dataframe1$V3)
Error in `$<-.data.frame`(`*tmp*`, "A", value = integer(0)) :
  replacement has 0 rows, data has 10

我想使用第一种类型的定义来定义，其中变量名参数在“括号”而不是“datafile$variablename”中

【问题讨论】：

之前好像有人问过这个问题
我确实找到了确切的问题，我可以在 -stackoverflow.com/questions/8121542/… 看到一个类似但不同的问题，我希望这不是拒绝投票的原因！如果有人可以指导我解决相同的问题，我什至很乐意关闭这篇文章......

标签： r function arguments

【解决方案1】：

您只需不要将$ 用作列选择器。相反，请使用[:

dataframe[,A]

或

dataframe[,B]

等等。在你的情况下：

dataframe1 <- data.frame(V1 = 1:10, V2 = 11:20, V3 = 21:30, V4 = 31:40)
myfun <- function (dataframe, A, B, yvar) {
                   dataframe1[,A] <- as.factor(dataframe[,A])
                   dataframe1[,B] <- as.factor (dataframe[,B])
                   dataframe1 <- data.frame(A = dataframe1[,A], 
                   B = dataframe1[,B], yvar = dataframe1[,yvar])
                   print(dataframe1)
                   }

myfun (dataframe = dataframe1, A = "V1", B= "V2", yvar = "V3")

    A  B yvar
1   1 11   21
2   2 12   22
3   3 13   23
4   4 14   24
5   5 15   25
6   6 16   26
7   7 17   27
8   8 18   28
9   9 19   29
10 10 20   30

【讨论】：

谢谢你的甜蜜回答，我想知道“$”和 [,C1] 列选择器的区别？
dataframe$A 搜索名为“A”的列。如果 A 包含一个字符串，则 dataframe[,A] 搜索一个名为 A 包含的任何内容的列。
“The R Inferno”的第 8.1.39 圈可能会有所帮助。 burns-stat.com/pages/Tutor/R_inferno.pdf

【解决方案2】：

您的问题的直接答案是使用[ 索引而不是$ 索引，因为$ 索引不允许间接子集。

此外，您可以通过使用单个 data.frame 语句而不定义任何中间变量来显着提高函数的可读性：

myfun <- function (dataframe, A, B, yvar) {
  data.frame(
      A = as.factor(dataframe[, A]), 
      B = as.factor(dataframe[, B]),
      yvar = dataframe[, yvar]
  )
}

myfun(dataframe1, "V1", "V2", "V3")
    A  B yvar
1   1 11   21
2   2 12   22
3   3 13   23
4   4 14   24
5   5 15   25
6   6 16   26
7   7 17   27
8   8 18   28
9   9 19   29
10 10 20   30

【讨论】：