问题 Apart from this post, here I am asking new questions how to make adjustment in legends built by ggraph . Here are scripts to produce current plot: ## Packages library(igraph) library(tidygraph) library(ggraph) library(ggplot2) library(tidyverse) ## Edge and node edge <- data.frame(from=c(0,0,0,0,1,2,3), to=c(0,1,2,3,0,0,0), weight=c(1,3,1,1,3,1,1)) node <- data.frame(id=c(0,1,2,3), p=c(9,1,0,0), w=c(0,2,0,0), s=c(0,1,1,1), size=c(9,3,1,1), gr=c(0,1,1,2)) ## Load data frames as tbl_graph class