레이블이있는 가로형 ンド 드로 그램이

Question

입니다. 레이블이있는 세로 형 덤 드로를 플로팅 할 수 있지만 가로형 일 때 레이블을 추가 할 수없는 문제가 있습니다.

Company Industry1 Industry2 Industry3 
Google  3%  5%  6% 
Apple  2%  6%  1% 

내가 데이터를 가져, 최초의 열은 내 레이블을 포함하지만 행이 단지 1, 2, 3

이

그래서 내 코드 읽기 등이 있습니다

내 데이터는 다음과 같습니다 : 데이터 소스는 "산업". 그때 다른 변수에 내 데이터를 배치 "

labs = Cluster_D[, 1] 
Industry <- Cluster_D 
rownames(Industry) <- labs$`Company` 


D.Industry <- dist(scale(round(Industry[, -1], 3)), method = "euclidean") 
H.Industry <- hclust(D.Industry, method = "ward.D") 
plot(H.Industry, labels = Cluster_D$`Company`) 

그래서 내가 랩의 변수에 내 레이블을 지정 Cluster_D

이라고합니다. 내가 데이터 A를 플롯하면 레이블에 전달해야하는 클러스터가있는 차트가 표시됩니다. 차트가 라벨과 함께 수직으로 작동하지만 .....

이 차트를 수평으로 뒤집어서 라벨 이름을 유지하는 방법을 알지 못합니다. 나는 horiz=true을 사용하는 것을 허용하는 as.dendrogram 기능을 사용하는 것을 시도했다 그러나 1, 2, 3 등등 등을 맞댄 되돌릴 때, 나의 상표를 지키지 않는다.

누군가는 나가 나 자신을 어떻게 정확한 얻을 수 있는지 설명 할 수 있는가? Statistica를 사용하는 데 익숙해졌으며 계층 적 클러스터링을 수행하는 데 문제가 없었습니다. R을 선택하려고합니다. 레이블을 지정하기가 쉽지는 않지만 단지 방법을 모르겠습니다.

나는 아래를 사용하여 시도했지만 차트의 라벨이 잘못 지정되었습니다 (ABC 주문).

PAR의 요청에 따라

F.Industries <- as.dendrogram(H.Industry) 
labels(F.Industries) <- paste(as.character(Cluster_D[,1])) 
plot(F.Industries, horiz = TRUE) 

Answer 1

: - :

z <- read.table(text = "Company Industry1 Industry2 Industry3 
Google  3%  5%  6% 
Apple  2%  6%  1% 
IBM  7%  4%  2%", header = T) 

내가하려고하면 :

scale(round(z[, -1], 3)) 
#output 
Error in Math.data.frame(list(Industry1 = c(2L, 1L, 3L), Industry2 = c(2L, : 
    non-numeric variable in data frame: Industry1Industry2Industry3 

이 제공되는 샘플 데이터가 의미

데이터를 내가 한 번 더 열 IBM 추가 자신의 대표가 아닙니다. 숫자에

변환 :

z = data.frame("Company" = z[,1], apply(z[,-1], 2, function(x) as.numeric(gsub("%", "", x)))) 

행 이름은 잎

rownames(z) <- z[,1] 

D.Industry <- dist(scale(z[, -1]), method = "euclidean") 
H.Industry <- hclust(D.Industry, method = "ward.D") 

plot(as.dendrogram(H.Industry), horiz = T) 

하나 레이블로 여백을 조정할 수 있습니다 mar

par(mar=c(2, 0, 0, 8)) 
plot(as.dendrogram(H.Industry), horiz = T) 

다른 방법은 ape하고 문자 벡터의 크기를 조절하려면 어떻게 ggdendro