ggraphラジアルグラフでテキストラベルを読み取る方法

Question

ggraphでは、プロットが放射状の場合、repel=Tを使用するかどうかに関係なく、ラベルが混雑する可能性があります。

ラベルをインタラクティブにしたり、ラベルを読み取るためにグラフを回転させる方法はありますか？

library(ggraph) 
mtcarsDen <- as.dendrogram(hclust(dist(mtcars[1:4], method='euclidean'), 
          method='ward.D2')) 
ggraph(graph = mtcarsDen, layout = 'dendrogram', repel = TRUE, circular = TRUE, 
    ratio = 0.5) + 
geom_edge_elbow() + 
geom_node_text(aes(x = x*1.05, y=y*1.05, filter=leaf, 
       angle = node_angle(x, y), label = label), 
      size=3, hjust='outward') + 
geom_node_point(aes(filter=leaf)) + 
coord_fixed() + 
ggforce::theme_no_axes() 

Answer 1

あなたはこのようなあなたの角度の美学を変更することができます。

ggraph(graph = mtcarsDen, layout = 'dendrogram', repel = TRUE, circular = TRUE, 
     ratio = 0.5) + 
    geom_edge_elbow() + 
    geom_node_text(aes(x = x*1.005, y=y*1.005, filter=leaf, 
        angle = -((-node_angle(x, y)+90)%%180)+90, label = label), 
       size=3, hjust='outward') + 
    geom_node_point(aes(filter=leaf)) + 
    coord_fixed() + 
    ggforce::theme_no_axes()