2

我有一些关于编写一个可以在矩阵和 data.frames 上工作的函数的问题。例如想象一下：

DoubleThatThing <- function(thing) {
   stopifnot(is.matrix(thing) | is.data.frame(thing))
   2 * thing
}

我的问题是：

  1. 是否有一个通用术语来表示矩阵或 data.frame 的对象？中要替换Thing的东西DoubleThatThing。

  2. 是否有普遍接受或广泛使用的变量名称thing？

  3. is.matrix(thing) | is.data.frame(thing)测试此类物体的最佳方法是什么？

4

2 回答 2

7

我不确定这是否会对您有所帮助，或者这是否可以满足您的需求。但是为什么不声明 a并为andgeneric method定义方法呢？这是一个虚拟/愚蠢的例子：matrixdata.frame

# generic method
my_fun <- function(x, ...) {
    UseMethod("my_fun", x)
}

# default action
my_fun.default <- function(x, ...) {
    cx <- class(x)
    stop(paste("No method defined for class", cx))
}

# method for object of class data.frame
my_fun.data.frame <- function(x, ...) {
    print("in data.frame")
    tapply(x[,1], x[,2], sum)
}

# method for object of class matrix
my_fun.matrix <- function(x, ...) {
    print("in matrix")
    my_fun(as.data.frame(x))
}

# dummy example
df <- data.frame(x=1:5, y=c(1,1,1,2,2))
mm <- as.matrix(df)

> my_fun(df)
# [1] "in data.frame"
# 1 2 
# 6 9 

> my_fun(mm)
# [1] "in matrix"
# [1] "in data.frame"
# 1 2 
# 6 9 

> my_fun(as.list(df))
# Error in my_fun.default(as.list(df)) : No method defined for class list
于 2013-03-21T21:24:24.840 回答
4

Matrix 和 data.frame 在下面真的很不一样。它们的共同点是它们有两个维度。因此，您可以测试该公共属性：

DoubleThatThing <- function(thing) {
   stopifnot(length(dim(thing)) == 2)
   2 * thing
}

但我不确定为什么这会比is.matrix(thing) | is.data.frame(thing).

于 2013-03-21T20:41:38.857 回答