Если вы сначала настроили ссылку с помощью geom_line, а затем добавили координаты_поляра (), вы можете получить круг ссылки:
xx=seq(0,2*pi,length=10)
yy=rep(2,10)
g <- ggplot(flights_sample2, aes(x = radians, fill = factor(nf, levels = c(8:0)))) +
geom_bar(binwidth = pi/18, position = "fill") +
scale_x_continuous(limits = c(0, 2*pi), breaks = c(0,pi/2, pi, 3*pi/2),
labels = c("N", "E", "S", "W")) +
xlim(0,2*pi) +
geom_hline(aes(x=xx, y=yy))
g+coord_polar()
Очевидно, что это не проверялось с вашими данными и кодом, но оно работало с примером на странице справки (ordin_polar)