xy, type, pch, lty, col, bg, cex, lwd, ...))函数,也许这就是真正起作用的函数了吧。思路基本上就是如此了,是否这个时候您可以获得一些阅读查找R函数内容的乐趣。 除了直接输入FUN.default形式外,还可以使用getS3method(FUN,"default")来获得代码。这样就解决了绝大多数函数代码查看的工作了。 在第二种情况种,我们说了一般可以通过FUN.default获得想要的结果。但是只有称为generic的函数才有这种“特权”。而lm等则没有,不过我们也可以尝试使用methods(lm)来看看结果如何,发现: [1] lm.fit lm.fit.null lm.influence lm.wfit lm.wfit.null Warning message: function 'lm' appears not to be generic in: methods(lm)
出现了警告信息,表示说lm不是泛型函数,但是还是给出了结果lm.fit等,大致上可以看成是和lm相关的系列函数吧。这样子就出现了有趣的局面,比如说既有plot.ts,也有ts.plot。 依照第三种情况,我们发现竟然有的函数用星号标识了的,比如plot.stl*等,当我们输入plot.stl,甚至是plot.stl*的时候都会给出 要么找不到这个对象,要么干脆是代码错误的信息。原来凡是用了*标识的函数,都是隐藏起来的函数,估计是怕被人看见(其实这是玩笑话)!我们要看这些函数 的代码,我们该怎么办呢?其实也很容易,使用功能强大的getAnywhere(FUN),看看这个函数的名称,就可以猜想到它的功能估计是很强大的, Anywhere的内容都可以找到!getAnywhere(plot.stl)的结果如下: A single object matching 'plot.stl' was found It was found in the following places registered S3 method for plot from namespace stats namespace:stats with value function (x, labels = colnames(X), set.pars = list(mar = c(0, 6, 0, 6), oma = c(6, 0, 4, 0), tck = -0.01, mfrow = c(nplot, 1)), main = NULL, range.bars = TRUE, ..., col.range = "light gray") { sers <- x$time.series ncomp <- ncol(sers) data <- drop(sers %*% rep(1, ncomp)) X <- cbind(data, sers) colnames(X) <- c("data", colnames(sers)) nplot <- ncomp + 1 if (range.bars) mx <- min(apply(rx <- apply(X, 2, range), 2, diff)) if (length(set.pars)) { oldpar <- do.call("par", as.list(names(set.pars))) on.exit(par(oldpar)) do.call("par", set.pars) } for (i in 1:nplot) { plot(X[, i], type = if (i < nplot) "l" else "h", xlab = "", ylab = "", axes = FALSE, ...) if (range.bars) { dx <- 1/64 * diff(ux <- par("usr")[1:2]) y <- mean(rx[, i]) rect(ux[2] - dx, y + mx/2, ux[2] - 0.4 * dx, y - mx/2, col = col.range, xpd = TRUE) } if (i == 1 && !is.null(main)) title(main, line = 2, outer = par("oma")[3] > 0) if (i == nplot) abline(h = 0) box() right <- i%%2 == 0 axis(2, labels = !right) axis(4, labels = right) axis(1, labels = i == nplot) mtext(labels[i], side = 2, 3) } mtext("time", side = 1, line = 3) invisible() } <environment: namespace:stats>
注意到前面有一段解释型的语言,描述了我们要找的这个函数放在了什么地方等等。其实对任意我们可以在R中使用的函数,都可以先试一试getAnywhere,看看都有些什么内容。算是一个比较“霸道”的函数。 在上面plot.xy函数中,我们还可以看到.Internal这个函数,类似的也许还可以看到.Primitive、.External、.Call等 函数这就和R系统内部工作方式和与外部接口的定义有关了,如果对这些函数有兴趣的话,就要学习组成R系统的源代码了。 最后,如果真的想阅读组成R系统本身的源代码,在各个CRAN中均有下载。你可以得到组成R系统所需要的材料。其中很多C语言(还有就是F)的源代码,均 是精心挑选过的算法,哪怕就是想学从头到尾编写具体的算法,也是学习的好材料。同时,你可以看到R系统内部是如何构成的,理解了这些对于高效使用R有至关 重要的作用。这个范畴的材料就要着重看一看R-Lang和R-inits了。 至此,R中阅读代码的内容就依照我的理解介绍了一下。随后将有一些R代码示例的分析注解、语言本身、R应用的和行业使用的材料翻译和具体例子说明。欢迎大家多多和我交流,一起进步。
|