R语言:dendrapply()函数中文帮助文档(中英文对照)

loveR

dendrapply(stats)
dendrapply()所属R语言包：stats

                                        Apply a Function to All Nodes of a Dendrogram
                                         函数应用到所有节点的树状

                                         译者：生物统计家园网 机器人LoveR

描述----------Description----------

Apply function FUN to each node of a dendrogram recursively.  When  y <- dendrapply(x, fn), then y is a dendrogram of the same graph structure as x and for each node, y.node[j] <- FUN( x.node[j], ...) (where y.node[j] is an (invalid!) notation for the j-th node of y.
应用功能FUN递归的每个节点dendrogram。当y <- dendrapply(x, fn)，则y是一个相同的图形结构的树状x和每个节点，y.node[j] <- FUN( x.node[j], ...)（其中y.node[j]（invalid!） j个节点y的符号。


用法----------Usage----------


dendrapply(X, FUN, ...)



参数----------Arguments----------

参数：X
an object of class "dendrogram".
对象类"dendrogram"。


参数：FUN
an R function to be applied to each dendrogram node, typically working on its attributes alone, returning an altered version of the same node.
R函数被应用到每个树状节点，通常attributes单独工作，在同一节点返回一个修改过的版本。


参数：...
potential further arguments passed to FUN.
潜在的进一步参数传递到FUN。


值----------Value----------

Usually a dendrogram of the same (graph) structure as X. For that, the function must be conceptually of the form FUN <- function(X) { attributes(X) <- .....;  X }, i.e. returning the node with some attributes added or changed.
通常是相同的（图）X结构的聚类分析。为此，该函数必须是这样的形式概念FUN <- function(X) { attributes(X) <- .....;  X }，即返回与节点增加或改变一些属性。


注意----------Note----------

this is still somewhat experimental, and suggestions for
这仍是有些实验，并建议


作者（S）----------Author(s)----------


Martin Maechler



参见----------See Also----------

as.dendrogram, lapply for applying a function to each component of a list, rapply for doing so to each non-list component of a nested list.
as.dendrogram，lapply应用功能，每个组件list，rapply这样做的每一个嵌套列表的非列表组件。


举例----------Examples----------


require(graphics)

## a smallish simple dendrogram[＃短小简单的树状]
dhc <- as.dendrogram(hc <- hclust(dist(USArrests), "ave"))
(dhc21 <- dhc[[2]][[1]])

## too simple:[＃太简单了：]
dendrapply(dhc21, function(n) utils::str(attributes(n)))

## toy example to set colored leaf labels :[＃玩具的例子来设置彩色叶标签：]
local({
  colLab <<- function(n) {
      if(is.leaf(n)) {
        a <- attributes(n)
        i <<- i+1
        attr(n, "nodePar") <-
            c(a$nodePar, list(lab.col = mycols[i], lab.font= i%%3))
      }
      n
  }
  mycols <- grDevices::rainbow(attr(dhc21,"members"))
  i <- 0
})
dL <- dendrapply(dhc21, colLab)
op <- par(mfrow=2:1)
plot(dhc21)
plot(dL) ## --&gt; colored labels![＃ - >彩色标签！]
par(op)

转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。