如何关闭＆＃34;差距＆＃34;在极坐标图中的平滑曲线（ggplot2）？

Question

我觉得我在这里犯了一些非常基本的错误，但搜索没有提出任何问题，所以这里有：

我正在观察扫视，并且每个数据点有一个角度和一个振幅。

library(ggplot2)

df = data.frame(
  angle = runif(100,0,359),
  amplitude = runif(100,0,10)
  )

p <-
  ggplot() +
  stat_smooth(data=df, aes(y=amplitude, x=angle)) +
  coord_polar()
p

给了我这个:(我试图得到一个没有＆＃34;结束点＆＃34的封闭戒指。）