r - R の樹状図の非葉ノードのラベル

Question

R の樹状図の形式で、いくつかの基準 (Column1、Column2、Column3) に従っていくつかの項目 (Name1、Name2、Name3、...) を分類したグラフを作成したいと考えています (樹状図の直交美学が好きです)。この目的を達成するために）。

各基準でアイテムとその分類を含む次の CSV (data.csv) があります。

Name;Column1;Column2;Column3
Name1;A;C;D
Name2;B;C;D
Name3;A;C;E
Name4;B;C;E
Name5;B;C;D
Name6;A;C;D
Name7;A;D;E
Name8;A;D;E
Name9;B;D;E
Name10;A;D;E

そして、次の R コード:

library(data.tree)
library(DiagrammeR)
library(ggdendro)

data <- read.table(file = "data.csv", header = TRUE, sep = ";")

data$pathString <- paste("stat",
                         data$Column1,
                         data$Column2,
                         data$Column3,
                         data$Name,
                         sep = "/")

pop <- as.Node(data)
den <- as.dendrogram(pop)

p1 <- ggdendrogram(den, labels = TRUE, rotate = TRUE, leaf_labels = TRUE)
p1

現在、葉以外のノードにラベルのない次の画像を取得しています。

樹状図の非葉ノードのそれぞれにラベルを表示することが可能かどうか疑問に思っています。たとえば、Column1 の決定では (非リーフ ノードに関連する) 各エッジ上に "A" と "B" を表示し、Column2 の決定では各エッジ上に "C" と "D" を表示します。さらに、グラフィックの右側にアイテムの名前を入れることは可能ですか？前もって感謝します。