Как вручную создать объект дендрограммы (или «hclust»)? (в R) - PullRequest
14 голосов
/ 22 февраля 2010

У меня есть дендрограмма, данная мне как изображения.Поскольку он не очень большой, я могу построить его «вручную» в объект R.

Поэтому мой вопрос заключается в том, как вручную создать объект дендрограммы (или «hclust»), когда все, что у меня естьизображение дендрограммы?

Я вижу, что есть функция с именем "as.dendrogram", но я не смог найти пример того, как ее использовать.

(пс:следит за моим вопросом от здесь )

Большое спасибо, Тал

Ответы [ 2 ]

25 голосов
/ 22 февраля 2010

Я думаю, что вам лучше создать объект hclust, а затем преобразовать его в дендрограмму, используя as.dendrogram, а затем попытаться создать дендрограмму напрямую. Посмотрите на справочную страницу ?hclust, чтобы увидеть значение элементов hclust объекта.

Вот простой пример с четырьмя листьями A, B, C и D, объединяющий сначала A-B, затем C-D и, наконец, AB-CD:

a <- list()  # initialize empty object
# define merging pattern: 
#    negative numbers are leaves, 
#    positive are merged clusters (defined by row number in $merge)
a$merge <- matrix(c(-1, -2,
                    -3, -4,
                     1,  2), nc=2, byrow=TRUE ) 
a$height <- c(1, 1.5, 3)    # define merge heights
a$order <- 1:4              # order of leaves(trivial if hand-entered)
a$labels <- LETTERS[1:4]    # labels of leaves
class(a) <- "hclust"        # make it an hclust object
plot(a)                     # look at the result   

#convert to a dendrogram object if needed
ad <- as.dendrogram(a)
4 голосов
/ 19 сентября 2013

Полностью ручной ... не рекомендуется для больших наборов данных.

tree<-list();
attributes(tree)<-list(members=18,height=3);
class(tree)<-"dendrogram";

tree[[1]]<-list();
attributes(tree[[1]])<-list(members=4,height=2,edgetext="1");
 tree[[1]][[1]]<-list();
 attributes(tree[[1]][[1]])<-list(members=2,height=1,edgetext="H");
  tree[[1]][[1]][[1]]<-list();
  attributes(tree[[1]][[1]][[1]])<-list(members=1,height=0,edgetext="H",label="1HH",leaf=TRUE);
  tree[[1]][[1]][[2]]<-list();
  attributes(tree[[1]][[1]][[2]])<-list(members=1,height=0,edgetext="T",label="1HT",leaf=TRUE);
 tree[[1]][[2]]<-list();
 attributes(tree[[1]][[2]])<-list(members=2,height=1,edgetext="T");
  tree[[1]][[2]][[1]]<-list();
  attributes(tree[[1]][[2]][[1]])<-list(members=1,height=0,edgetext="H",label="1TH",leaf=TRUE);
  tree[[1]][[2]][[2]]<-list();
  attributes(tree[[1]][[2]][[2]])<-list(members=1,height=0,edgetext="T",label="1TT",leaf=TRUE);
tree[[2]]<-list();
attributes(tree[[2]])<-list(members=2,height=2,edgetext="2");
 tree[[2]][[1]]<-list();
 attributes(tree[[2]][[1]])<-list(members=1,height=0,edgetext="H",label="2H",leaf=TRUE);
 tree[[2]][[2]]<-list();
 attributes(tree[[2]][[2]])<-list(members=1,height=0,edgetext="T",label="2T",leaf=TRUE);
tree[[3]]<-list();
attributes(tree[[3]])<-list(members=4,height=2,edgetext="3");
 tree[[3]][[1]]<-list();
 attributes(tree[[3]][[1]])<-list(members=2,height=1,edgetext="H");
  tree[[3]][[1]][[1]]<-list();
  attributes(tree[[3]][[1]][[1]])<-list(members=1,height=0,edgetext="H",label="3HH",leaf=TRUE);
  tree[[3]][[1]][[2]]<-list();
  attributes(tree[[3]][[1]][[2]])<-list(members=1,height=0,edgetext="T",label="3HT",leaf=TRUE);
 tree[[3]][[2]]<-list();
 attributes(tree[[3]][[2]])<-list(members=2,height=1,edgetext="T");
  tree[[3]][[2]][[1]]<-list();
  attributes(tree[[3]][[2]][[1]])<-list(members=1,height=0,edgetext="H",label="3TH",leaf=TRUE);
  tree[[3]][[2]][[2]]<-list();
  attributes(tree[[3]][[2]][[2]])<-list(members=1,height=0,edgetext="T",label="3TT",leaf=TRUE);
tree[[4]]<-list();
attributes(tree[[4]])<-list(members=2,height=2,edgetext="4");
 tree[[4]][[1]]<-list();
 attributes(tree[[4]][[1]])<-list(members=1,height=0,edgetext="H",label="4H",leaf=TRUE);
 tree[[4]][[2]]<-list();
 attributes(tree[[4]][[2]])<-list(members=1,height=0,edgetext="T",label="4T",leaf=TRUE);
tree[[5]]<-list();
attributes(tree[[5]])<-list(members=4,height=2,edgetext="5");
 tree[[5]][[1]]<-list();
 attributes(tree[[5]][[1]])<-list(members=2,height=1,edgetext="H");
  tree[[5]][[1]][[1]]<-list();
  attributes(tree[[5]][[1]][[1]])<-list(members=1,height=0,edgetext="H",label="5HH",leaf=TRUE);
  tree[[5]][[1]][[2]]<-list();
  attributes(tree[[5]][[1]][[2]])<-list(members=1,height=0,edgetext="T",label="5HT",leaf=TRUE);
 tree[[5]][[2]]<-list();
 attributes(tree[[5]][[2]])<-list(members=2,height=1,edgetext="T");
  tree[[5]][[2]][[1]]<-list();
  attributes(tree[[5]][[2]][[1]])<-list(members=1,height=0,edgetext="H",label="5TH",leaf=TRUE);
  tree[[5]][[2]][[2]]<-list();
  attributes(tree[[5]][[2]][[2]])<-list(members=1,height=0,edgetext="T",label="5TT",leaf=TRUE);
tree[[6]]<-list();
attributes(tree[[6]])<-list(members=2,height=2,edgetext="6");
 tree[[6]][[1]]<-list();
 attributes(tree[[6]][[1]])<-list(members=1,height=0,edgetext="H",label="6H",leaf=TRUE);
 tree[[6]][[2]]<-list();
 attributes(tree[[6]][[2]])<-list(members=1,height=0,edgetext="T",label="6T",leaf=TRUE);


windows(width=3,rescale="fixed");
par(ps=8);
plot(rev(tree),center=TRUE,horiz=TRUE);
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...