R 我想调整ggplot2中的图形区域

我使用geomnet包和ggplot2绘制了以下图表。然后将其导出为pdf格式。但是图形本身似乎比图形区域大。它似乎被框在一个小正方形中，如图所示：

我不知道如何更改构成图形框架的正方形的大小，以便在我的pdf中完全显示网络节点。提前谢谢

以下是我正在使用的代码和一个数据示例：

red_list<-data_frame(From=c("A","B","C","D","D"),To=c("C","C","D","Z","A"))

red_list%>%ggplot(aes(from_id=From,to_id=To))+
geom_net(layout.alg = "circle", labelon = TRUE,
size = 12, directed = TRUE, fontsize=2, vjust = 0.5, labelcolour = "grey80",
arrowsize = 1.5, linewidth = 0.5, arrowgap = 0.05, col="darkred",
selfloops = F, ecolour = "grey40") + 
theme_net() +
theme(plot.title=element_text(hjust=.5),
plot.subtitle=element_text(hjust=.5))+
ggtitle(label=paste("Figura",i,sep=" "),subtitle = paste("Interacciones entre los sectores de",names(red_list)[i],by=" ")))

red_list%ggplot（aes（from_id=from，to_id=to））+
geom_net（layout.alg=“circle”，labelon=TRUE，
size=12，directed=TRUE，fontsize=2，vjust=0.5，labelcolor=“grey80”，
箭头大小=1.5，线宽=0.5，箭头间距=0.05，col=“darkred”，
自循环=F，ecolour=“grey40”）+
主题_net（）+
主题（plot.title=element\u text（hjust=0.5），
plot.subtitle=element\u text（hjust=0.5））+
ggtitle（标签=粘贴（“Figura”，i，sep=”“），副标题=粘贴（“Interaciones entre los sectores de”，name（红色列表）[i]，by=”“））

我不确定它对图形的处理效果如何，但我经常使用坐标笛卡尔（xlim=c（…，…），ylim=c（…，…）调整绘图区域。

您是使用

ggsave

还是使用rstudio中的导出按钮？

ggsave

通常更适合保存图形我使用rmarkdown创建pdf文档。只需打印图形。您应该在rmarkdown代码块中设置

fig.width=？，fig.height=？