截断的ggraph节点标签

我已经用GGRAPHE生成了一个非常简单的网络图，带有圆形布局。节点标签的角度沿圆的边缘变化，以便于阅读。但是，标签被截断，调整页边距似乎没有什么区别。我和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()

#加载网络包
要求（潮汐图）
需要（igraph）
#从github获取数据
GithBurl 0~角度$degree，
lo[，2]<0&lo[，1]>0~角度$degree，
lo[，1]==1~角度$度，
真~角度（$度-180））+
主题图（）

放下theme_graph（），我发现x和y的轴都是-1:1，而且似乎与标签不符。所以我添加了coord_cartesian（）来扩展绘图的限制。在ggraph（）中添加了以下内容

+coord\u笛卡尔（xlim=c（-1.2,1.2），ylim=c（-1.2,1.2））

---

太棒了。太简单了！