ggraph 節點標簽被截斷

Question

我使用 ggraph 生成了一個非常簡單的網絡圖，具有圓形布局。 節點標簽的角度沿着圓的邊緣變化，以便於閱讀這些。 但是，標簽被截斷，調整邊距似乎沒有任何區別。 我玩過 ggsave、egg 並沒有太多樂趣。

這是我的可重現代碼。 也許有人可以幫助我。 提前致謝：

# load network packages

require(tidygraph)
require(igraph)

# fetch data from github

githubURL <- "https://github.com/aterhorst/data/raw/master/network.RDS"
network <- readRDS(url(githubURL))

# compute label angles

require(pracma)

lo <- layout.circle(network)
angle <- as_tibble(cart2pol(lo)) %>% mutate(degree = phi * 180/pi)

# generate plot

require(ggraph)

ggraph(network, layout = "circle") +
geom_edge_link() +
geom_node_point() +
geom_node_text(aes(label = name), 
               size = 2, 
               hjust = ifelse(lo[,1] > 0, -0.2, 1.2),
               angle = case_when(lo[,2] > 0 & lo[,1] > 0 ~ angle$degree, 
                                 lo[,2] < 0 & lo[,1] > 0 ~ angle$degree,
                                 lo[,1] == 1 ~angle$degree,
                                 TRUE ~ angle$degree - 180)) +
theme_graph()

Answer 1

刪除theme_graph()，我發現x 和y 的軸都是-1 到1，而且它似乎不適合標簽。 所以我添加了 coord_cartesian() 來擴展繪圖的限制。 下面添加到 ggraph()

+ coord_cartesian(xlim=c(-1.2,1.2), ylim=c(-1.2,1.2))