r - 用ggplot2画一个半圆

Question

我使用 ggplot2 在 R 中绘制了一个(无板篮球)球场以及以下代码:

require(ggplot2)
ggplot(Coords, aes(X,Y, colour=Position)) + 
geom_point() + 
coord_equal() + theme(plot.background = element_rect(fill = 'grey')) +
geom_path(data=NetballCourt, aes(X,Y), colour="black", size=1)`<br><br>

球场的边线和横线很好，这些都包含在 data.frame 中。我将球员运动命名为“NetballCourt”，并根据个人位置分类为“Coords”。

如何在球场的两端画一个半径为 4.9 米的半圆？不熟悉无板篮球的小伙伴们，这里的球场尺寸... http://netball.com.au/our-game/court-venue-specifications/

Answer 1

感谢您提供链接，@eipi10 和@tonytonov。

我采用了以下圆函数:

circleFun <- function(center=c(0,0), diameter=1, npoints=100, start=0, end=2)
{
  tt <- seq(start*pi, end*pi, length.out=npoints)
  data.frame(x = center[1] + diameter / 2 * cos(tt), 
             y = center[2] + diameter / 2 * sin(tt))
}

然后我包括了无板篮球场的细节，考虑到一个完整的圆的中心是 (0,7.625)，直径是 9.8

 dat <- circleFun(c(0,7.625), 9.8, start=1.5, end=2.5)

然后，在将 X 和 Y 坐标添加到我现有的 data.frame 之前，我在 R 中绘制了它。命名为“网球场”

ggplot(dat,aes(x,y)) + 
geom_polygon(color="black") + 
ggtitle("half circle") +
coord_equal()