R语言中的类，泛型函数和面向对象

xiaoliu

一个对象的类决定了它会如何被一个泛型函数7处理。相反，一个泛型函数由参
数自身类的种类来决定完成特定工作或者事务的。如果参数缺乏任何类属性，或者在
该问题中有一个不能被任何泛型函数处理的类，泛型函数会有一种默认的处理方式。
下面的一个例子使这个问题变得清晰。类机制为用户提供了为特定问题设计和编
写泛型函数的便利。在众多泛型函数中，plot() 用于图形化显示对象，summary()
用于各种类型的概述分析，以及anova() 用于比较统计模型。
能以特定方式处理类的泛型函数的数目非常庞大。例如，可以在非常时髦的类对
象"data.frame" 中使用的函数有[ [[<- any as.matrix
[<- mean plot summary
可以用函数methods() 得到当前对某个类对象可用的泛型函数列表：
> methods(class="data.frame")
相反，一个泛型函数可以处理的类同样很多。例如，plot() 有默认的方法和变
量处理对象类"data.frame"，"density"，"factor"，等等。一个完整的列表同样可
以通过函数methods() 得到：
> methods(plot)
许多泛形函数的函数主体部分非常的短，如
> coef
function (object, ...)
UseMethod("coef")
UseMethod 的出现暗示着这是一个泛形函数。为了查看那些方法可以使用，我们可以
使用函数methods()
> methods(coef)
[1] coef.aov* coef.Arima* coef.default* coef.listof*
[5] coef.nls* coef.summary.nls*
Non-visible functions are asterisked
这个例子中有六个方法，不过其中任何一个都不能简单地通过键入名字来查看8。我
们可以通过下面两种方法查看这种方法
> getAnywhere("coef.aov")
A single object matching 'coef.aov' was found
It was found in the following places
registered S3 method for coef from namespace stats
namespace:stats
with value
function (object, ...)
{
z <- object$coef
z[!is.na(z)]
}
> getS3method("coef", "aov")
function (object, ...)
{
z <- object$coef
z[!is.na(z)]
}
读者可以参考文档R语言定义以得到关于这种机制更完整的讨论。