ggraph树状图中的轴刻度标签

Question

我开始使用ggraph包，因为它在网络图的可用绘图中添加了额外的功能，因此看起来非常有前途(参见this tutorial)。然而，在测试一些相当琐碎的东西时，我已经卡住了。我主要想做的是重现一个简单的树状图：

ArrestsDen <- as.dendrogram(hclust(dist(USArrests[1:5,])))
plot(ArrestsDen)

​

​

但这是它在ggraph中的样子：

library(ggraph)
ggraph(ArrestsDen, 'dendrogram') +
  geom_edge_elbow()

​

​

它只显示0,1,2等，而不是轴刻度标签。我已经尝试了常见的ggplot2“技巧”，但没有成功：

ggraph(ArrestsDen, 'dendrogram') +
  geom_edge_elbow() +
  scale_x_discrete(labels = labels)

# create labels manually
labs <- labels(ArrestsDen)
names(labs) <- as.character(1:length(labels(ArrestsDen)))
class(labs)

ggraph(ArrestsDen, 'dendrogram') +
  geom_edge_elbow() +
  scale_x_discrete(labels = labs)

​

​

我遗漏了什么？

Answer 1

你可以试一试：

  ggraph(ArrestsDen, 'dendrogram') +
    geom_edge_elbow() + 
    theme_bw() + 
    scale_x_continuous(breaks = c(0, 1, 2, 3, 4), label=c("Ark","Arizona","Cal", "Alab", "Alaska"))