0

许多 R 教科书鼓励使用 $ 从 data.frames^ 中检索变量（列）。但是，我发现这在函数内部不起作用，我不知道为什么。

data(BOD)
print(BOD)

# These work. 
BOD$'demand'
BOD[ ,'demand']

# This works.
myFunc1 <- function(x, y){
  z <- x[ , y]
  return(z)
}
out <- myFunc(BOD, 'demand')

# This doesn't work.
myFunc2 <- function(x, y){
  z <- x$y
  return(z)
}
out <- myFunc2(BOD, 'demand')

我注意到在 R 语言定义中它说：

使用 $ 的形式适用于递归对象，例如列表和对列表。它只允许将文字 > 字符串或符号作为索引。也就是说，索引是不可计算的：对于需要计算表达式以找到索引的情况，请使用 x[[expr]]。当 $ 应用于 >non-recursive 对象时，结果通常为 NULL：从 R 2.6.0 开始，这是一个错误。

上面的 myFunc2 是否是未提供 $ 文字字符串的示例？

^ Zuur 2009 年“R 初学者指南”第 61 页

^ Spector 2008 '使用 R 进行数据操作' p 26, 64, 69

4

3 回答 3

5

您也可以使用 [[ 而不是 $

myFunc2 <- function(x, y){
+     z <- x[[y]]
+     return(z)
+ }
> myFunc2(BOD, 'demand')
[1]  8.3 10.3 19.0 16.0 15.6 19.8
于 2013-07-18T01:03:35.700 回答
3

就我个人而言，我认为美元运算符$在 R 控制台中很方便且有用。它允许完成和部分命名功能。$对于交互模式很有用。但是如果你想在你的函数中使用它，你应该 do.call像这样创建一个调用：

myFunc2 <- function(x, y){
  z <- do.call('$',list(x,y))
  return(z)
}
myFunc2(BOD,'demand')
[1]  8.3 10.3 19.0 16.0 15.6 19.8

但是[正如您所提到的，这里使用起来更简单：

myFunc2 <- function(x, y){
  z <-     x[,y]
  return(z)
}
于 2013-07-18T00:16:39.407 回答
1

如果您想完美模仿$运算符，您可以使用[[并将参数设置exact为FALSE允许部分匹配。

BOD <- data.frame(demand = 1:10)

myFunc2 <- function(x, y) x[[y, exact = FALSE]]

BOD$dem
## [1]  1  2  3  4  5  6  7  8  9 10

BOD[["dem"]]
## NULL

myFunc2(BOD, "dem")
## [1]  1  2  3  4  5  6  7  8  9 10
于 2013-07-18T04:22:50.173 回答