小编lis*_*sah的帖子

我试图用 ggraph 绘制一个网络，我想在图形周围添加一个圆圈，边缘和节点位于圆圈内。

使用以下代码绘制圆圈效果很好（改编自Draw a circle with ggplot2）

gg_circle <- function(r, xc, yc, color = "black", fill = NA, lty = NA, size = NA, ...) {
  x <- xc + r*cos(seq(0, pi, length.out = 100))
  ymax <- yc + r*sin(seq(0, pi, length.out = 100))
  ymin <- yc + r*sin(seq(0, -pi, length.out = 100))
  annotate("ribbon", x = x, ymin = ymin, ymax = ymax, 
           color = color, fill = fill, lty = lty, size = size, ...)
} …